From: Leo Liu <sdl.web@gmail.com>
Date: Sat, 23 Jun 2012 13:33:44 +0000 (+0800)
Subject: * textmodes/enriched.el (enriched-next-annotation):
X-Git-Tag: emacs-24.2~73
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e994155e9592cd63f792e98167aca31f9b31996a;p=emacs.git

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

Fixes: debbugs:11528
---

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.