* textmodes/enriched.el (enriched-next-annotation):

Use eq.

Fixes: debbugs:11528

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03730a68cca..bea8584d03c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-06-23  Leo Liu  <sdl.web@gmail.com>
+
+        * textmodes/enriched.el (enriched-next-annotation):
+        Use eq (Bug#11528).
+
 2012-06-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * minibuffer.el (minibuffer-confirm-exit-commands):
diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el
index 68a99b0efe4..a28fcfc7e4b 100644
--- a/lisp/textmodes/enriched.el
+++ b/lisp/textmodes/enriched.el
@@ -437,7 +437,7 @@ Return value is \(begin end name positive-p), or nil if none was found."
               (progn (goto-char (match-beginning 0))
                      (not (looking-at enriched-annotation-regexp))))
     (forward-char 1)
-    (if (= ?< (char-after (point)))
+    (if (eq ?< (char-after (point)))
         (delete-char 1)
       ;; A single < that does not start an annotation is an error,
       ;; which we note and then ignore.