comparison lisp/emacs-lisp/rx.el @ 52971:d5c1eeaa97e2

(rx-or): Fix the case of "(rx (and ?a (or ?b ?c) ?d))".

52970:33edcfca670d

  (rx-check form)
  (let ((all-args-strings t))
    (dolist (arg (cdr form))
      (unless (stringp arg)
	(setq all-args-strings nil)))
    (if all-args-strings
	(regexp-opt (cdr form))
      (mapconcat #'rx-to-string (cdr form) "\\|"))))


(defun rx-quote-for-set (string)
  "Transform STRING for use in a character set.
If STRING contains a `]', move it to the front.

52971:d5c1eeaa97e2

  (rx-check form)
  (let ((all-args-strings t))
    (dolist (arg (cdr form))
      (unless (stringp arg)
	(setq all-args-strings nil)))
    (concat "\\(?:"
	    (if all-args-strings
		(regexp-opt (cdr form))
	      (mapconcat #'rx-to-string (cdr form) "\\|"))
	    "\\)")))


(defun rx-quote-for-set (string)
  "Transform STRING for use in a character set.
If STRING contains a `]', move it to the front.