319 |
;; emacs/xemacs compatibility |
;; emacs/xemacs compatibility |
320 |
(if (fboundp 'frame-parameter) |
(if (fboundp 'frame-parameter) |
321 |
(frame-parameter (selected-frame) 'display-type) |
(frame-parameter (selected-frame) 'display-type) |
322 |
(frame-property (selected-frame) 'display-type)))) |
(if (fboundp 'frame-property) |
323 |
|
(frame-property (selected-frame) 'display-type))))) |
324 |
|
|
325 |
(defsubst reb-lisp-syntax-p () |
(defsubst reb-lisp-syntax-p () |
326 |
"Return non-nil if RE Builder uses a Lisp syntax." |
"Return non-nil if RE Builder uses a Lisp syntax." |
611 |
(defun reb-cook-regexp (re) |
(defun reb-cook-regexp (re) |
612 |
"Return RE after processing it according to `reb-re-syntax'." |
"Return RE after processing it according to `reb-re-syntax'." |
613 |
(cond ((eq reb-re-syntax 'lisp-re) |
(cond ((eq reb-re-syntax 'lisp-re) |
614 |
(lre-compile-string (eval (car (read-from-string re))))) |
(if (fboundp 'lre-compile-string) |
615 |
|
(lre-compile-string (eval (car (read-from-string re)))))) |
616 |
((eq reb-re-syntax 'sregex) |
((eq reb-re-syntax 'sregex) |
617 |
(apply 'sregex (eval (car (read-from-string re))))) |
(apply 'sregex (eval (car (read-from-string re))))) |
618 |
((eq reb-re-syntax 'rx) |
((eq reb-re-syntax 'rx) |