diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-01-21 09:03:10 -0500 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-01-21 09:03:10 -0500 |
| commit | f0bd0ad525b8867540351715dda5743f8b4c4bd1 (patch) | |
| tree | 3bb021abf1ac7ce593c1cac35bf54eaca5a0e608 /lisp/textmodes/sgml-mode.el | |
| parent | 994ff697713e64393cb483a336d9e6c7428bb33b (diff) | |
| download | emacs-f0bd0ad525b8867540351715dda5743f8b4c4bd1.tar.gz | |
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).
Diffstat (limited to 'lisp/textmodes/sgml-mode.el')
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 996734637bc..b9d52acdeba 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -608,11 +608,7 @@ Uses `sgml-char-names'." "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 () |