From e994155e9592cd63f792e98167aca31f9b31996a Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Sat, 23 Jun 2012 21:33:44 +0800 Subject: [PATCH] * textmodes/enriched.el (enriched-next-annotation): Use eq. Fixes: debbugs:11528 --- lisp/ChangeLog | 5 +++++ lisp/textmodes/enriched.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * textmodes/enriched.el (enriched-next-annotation): + Use eq (Bug#11528). + 2012-06-23 Stefan Monnier * 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. -- 2.39.2