Mercurial > emacs
changeset 106947:938f7da4579e
Fix sgml-maybe-name-self (Bug#5380).
* textmodes/sgml-mode.el (sgml-maybe-name-self): No need to
process last-command-event, as it is now decoded first (Bug#5380).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 21 Jan 2010 09:03:10 -0500 |
| parents | ca11a89eb77d |
| children | 719b13c3b762 ef5fafbceb01 |
| files | lisp/ChangeLog lisp/textmodes/sgml-mode.el |
| diffstat | 2 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jan 21 09:07:49 2010 +0000 +++ b/lisp/ChangeLog Thu Jan 21 09:03:10 2010 -0500 @@ -1,3 +1,8 @@ +2010-01-21 Kenichi Handa <handa@m17n.org> + + * textmodes/sgml-mode.el (sgml-maybe-name-self): No need to + process last-command-event, as it is now decoded first (Bug#5380). + 2010-01-20 Chong Yidong <cyd@stupidchicken.com> * term.el (term-send-raw-meta): Revert 2009-12-04 change (Bug#5330).
--- a/lisp/textmodes/sgml-mode.el Thu Jan 21 09:07:49 2010 +0000 +++ b/lisp/textmodes/sgml-mode.el Thu Jan 21 09:03:10 2010 -0500 @@ -608,11 +608,7 @@ "Insert a symbolic character name according to `sgml-char-names'." (interactive "*") (if sgml-name-8bit-mode - (let ((mc last-command-event)) - (if (< mc 256) - (setq mc (unibyte-char-to-multibyte mc))) - (or mc (setq mc last-command-event)) - (sgml-name-char mc)) + (sgml-name-char last-command-event) (self-insert-command 1))) (defun sgml-name-8bit-mode ()