# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1264082590 18000
# Node ID 938f7da4579ec7160ba948957cbfc7b72d2f89a2
# Parent  ca11a89eb77d6d764fff8245727c553eae2554c8
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).

diff -r ca11a89eb77d -r 938f7da4579e lisp/ChangeLog
--- 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).
diff -r ca11a89eb77d -r 938f7da4579e lisp/textmodes/sgml-mode.el
--- 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 ()