diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2006-03-03 12:20:26 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2006-03-03 12:20:26 +0000 |
| commit | a6966c1ce7007f8c18545ddc256f40c09fa0808d (patch) | |
| tree | 98b0142f4358ef35dc1f95474e63feea61dab962 /lisp/emacs-lisp | |
| parent | ddb72af931020f643a7f0afff66e0eb80b4072ff (diff) | |
| download | emacs-a6966c1ce7007f8c18545ddc256f40c09fa0808d.tar.gz emacs-a6966c1ce7007f8c18545ddc256f40c09fa0808d.tar.bz2 emacs-a6966c1ce7007f8c18545ddc256f40c09fa0808d.zip | |
(rx-check-any, rx-check-not): Quote "]"s in regexps when they have no
special meaning.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/rx.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el index 763aa97f214..694544e3c52 100644 --- a/lisp/emacs-lisp/rx.el +++ b/lisp/emacs-lisp/rx.el @@ -372,8 +372,8 @@ FORM is of the form `(and FORM1 ...)'." (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) + (when (string-match "\\]" arg) + (setq arg (replace-regexp-in-string "\\]" "" arg) rx-bracket "]"))) (when (symbolp arg) (let ((translation (condition-case nil @@ -405,7 +405,7 @@ ARG is optional." (defun rx-check-not (arg) "Check arg ARG for Rx `not'." (unless (or (and (symbolp arg) - (string-match "\\`\\[\\[:[-a-z]:]]\\'" + (string-match "\\`\\[\\[:[-a-z]:\\]\\]\\'" (condition-case nil (rx-to-string arg 'no-group) (error "")))) |