[Emacs-diffs] /srv/bzr/emacs/trunk r99388: Fix sgml-maybe-name-self (Bug#5380).

[Chong Yidong]

------------------------------------------------------------
revno: 99388
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Thu 2010-01-21 09:03:10 -0500
message:
  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).
modified:
  lisp/ChangeLog
  lisp/textmodes/sgml-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-01-20 17:14:37 +0000
+++ b/lisp/ChangeLog    2010-01-21 14:03:10 +0000
@@ -1,3 +1,8 @@
+2010-01-21  Kenichi Handa  <address@hidden>
+
+       * 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  <address@hidden>
 
        * term.el (term-send-raw-meta): Revert 2009-12-04 change (Bug#5330).

=== modified file 'lisp/textmodes/sgml-mode.el'
--- a/lisp/textmodes/sgml-mode.el       2010-01-13 08:35:10 +0000
+++ b/lisp/textmodes/sgml-mode.el       2010-01-21 14:03:10 +0000
@@ -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 ()