comparison lisp/emacs-lisp/rx.el @ 69266:a080fc579e98

(rx-check-any, rx-check-not): Quote "]"s in regexps when they have no special meaning.

69265:268da31ddfc5

	 (error "String arg for Rx `any' must not be empty"))
     ;; Quote ^ at start; don't bother to check whether this is first arg.
     (if (eq ?^ (aref arg 0))
	 (setq arg (concat "\\" arg)))
     ;; Remove ] and set flag for adding it to start of overall result.
     (when (string-match "]" arg)
       (setq arg (replace-regexp-in-string "]" "" arg)
	     rx-bracket "]")))
   (when (symbolp arg)
     (let ((translation (condition-case nil
			    (rx-to-string arg 'no-group)
			  (error nil))))

(defun rx-check-not (arg)
  "Check arg ARG for Rx `not'."
  (unless (or (and (symbolp arg)
		   (string-match "\\`\\[\\[:[-a-z]:]]\\'"
				 (condition-case nil
				     (rx-to-string arg 'no-group)
				   (error ""))))
	      (eq arg 'word-boundary)
	      (and (consp arg)

69266:a080fc579e98

	 (error "String arg for Rx `any' must not be empty"))
     ;; Quote ^ at start; don't bother to check whether this is first arg.
     (if (eq ?^ (aref arg 0))
	 (setq arg (concat "\\" arg)))
     ;; Remove ] and set flag for adding it to start of overall result.
     (when (string-match "\\]" arg)
       (setq arg (replace-regexp-in-string "\\]" "" arg)
	     rx-bracket "]")))
   (when (symbolp arg)
     (let ((translation (condition-case nil
			    (rx-to-string arg 'no-group)
			  (error nil))))

(defun rx-check-not (arg)
  "Check arg ARG for Rx `not'."
  (unless (or (and (symbolp arg)
		   (string-match "\\`\\[\\[:[-a-z]:\\]\\]\\'"
				 (condition-case nil
				     (rx-to-string arg 'no-group)
				   (error ""))))
	      (eq arg 'word-boundary)
	      (and (consp arg)