diff options
| author | Leo Liu <sdl.web@gmail.com> | 2012-06-23 21:33:44 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2012-06-23 21:33:44 +0800 |
| commit | e994155e9592cd63f792e98167aca31f9b31996a (patch) | |
| tree | ce581c24fc5dafd602d7ace7e02f4d96a03de758 | |
| parent | c81b46f68faf94738e7c96bece4a2627451aceb4 (diff) | |
| download | emacs-e994155e9592cd63f792e98167aca31f9b31996a.tar.gz | |
* textmodes/enriched.el (enriched-next-annotation):
Use eq.
Fixes: debbugs:11528
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/enriched.el | 2 |
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. |