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

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e241a65ff50..7081edf4100 100644
--- 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 b3b88c3ce4f..cb6756a7e0f 100644
--- 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))