/[emacs]/emacs/lisp/emacs-lisp/rx.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/rx.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by miles, Mon Sep 1 15:45:22 2003 UTC revision 1.6 by eliz, Sat Nov 1 17:35:23 2003 UTC
# Line 286  FORM is of the form `(and FORM1 ...)'." Line 286  FORM is of the form `(and FORM1 ...)'."
286      (dolist (arg (cdr form))      (dolist (arg (cdr form))
287        (unless (stringp arg)        (unless (stringp arg)
288          (setq all-args-strings nil)))          (setq all-args-strings nil)))
289      (if all-args-strings      (concat "\\(?:"
290          (regexp-opt (cdr form))              (if all-args-strings
291        (mapconcat #'rx-to-string (cdr form) "\\|"))))                  (regexp-opt (cdr form))
292                  (mapconcat #'rx-to-string (cdr form) "\\|"))
293                "\\)")))
294    
295    
296  (defun rx-quote-for-set (string)  (defun rx-quote-for-set (string)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26