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

Use eq.

Fixes: debbugs:11528

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03730a68cca18b6b1c646ce5f2aae63247d1b049..bea8584d03c1518d5988b34b2e1c08677ff55584 100644 (file)
--- 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 68a99b0efe4b4ebffde655a00403364d2b22ee3e..a28fcfc7e4bba083951fa83f97729b36dc04257d 100644 (file)
--- 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.