Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |