mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(universal-coding-system-argument): Check for C-g. (Bug#1205)

Browse source
This commit is contained in:
Glenn Morris 2008-10-22 06:44:52 +00:00
parent e368195223
commit 735c5b1760
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/international/mule-cmds.el
View file

@ -286,7 +286,10 @@ wrong, use this command again to toggle back to the right mode."
(format "Command to execute with %s:" coding-system)))
(cmd (key-binding keyseq))
prefix)
;; read-key-sequence ignores quit, so make an explicit check.
;; Like many places, this assumes quit == C-g, but it need not be.
(if (char-equal last-input-char ?\C-g)
(keyboard-quit))
(when (memq cmd '(universal-argument digit-argument))
(call-interactively cmd)