[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/rx.el

[Eli Zaretskii]

Index: emacs/lisp/emacs-lisp/rx.el
diff -u emacs/lisp/emacs-lisp/rx.el:1.17 emacs/lisp/emacs-lisp/rx.el:1.18
--- emacs/lisp/emacs-lisp/rx.el:1.17    Mon Feb  6 12:20:07 2006
+++ emacs/lisp/emacs-lisp/rx.el Fri Mar  3 12:19:21 2006
@@ -372,8 +372,8 @@
      (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 @@
 (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 ""))))