* lisp/emacs-lisp/rx.el (rx-syntax): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e241a65ff5085aad6536b78dce5ef9de4559eac7..7081edf4100f4e8824b7452c5dc59d77c5c31dd2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-12-30  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * emacs-lisp/rx.el (rx-syntax): Fix typo.
+
 2010-12-30  Tassilo Horn  <tassilo@member.fsf.org>
 
        * doc-view.el (doc-view-toggle-display): Perform rassq-delete-all

diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el
index b3b88c3ce4fe5c989ef037bc162ba4b46130f160..cb6756a7e0ff29af27500713afa148ba6369cfc9 100644 (file)
--- a/lisp/emacs-lisp/rx.el
+++ b/lisp/emacs-lisp/rx.el
@@ -767,7 +767,7 @@ of all atomic regexps."
     (unless syntax
       ;; Try sregex compatibility.
       (cond
-       ((character sym) (setq syntax sym))
+       ((characterp sym) (setq syntax sym))
        ((symbolp sym)
         (let ((name (symbol-name sym)))
           (if (= 1 (length name))