# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1141388361 0
# Node ID a080fc579e98958d533853ca050e9b10caa74d7c
# Parent  268da31ddfc59ce018e93608ff5b749db46cc3ef
(rx-check-any, rx-check-not): Quote "]"s in regexps when they have no
special meaning.

diff -r 268da31ddfc5 -r a080fc579e98 lisp/emacs-lisp/rx.el
--- a/lisp/emacs-lisp/rx.el	Fri Mar 03 12:18:47 2006 +0000
+++ b/lisp/emacs-lisp/rx.el	Fri Mar 03 12:19:21 2006 +0000
@@ -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 ""))))