Mercurial > emacs
changeset 99022:f4efd0ab2185
(universal-coding-system-argument): Check for C-g. (Bug#1205)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 22 Oct 2008 06:44:52 +0000 |
| parents | c1e73559ff87 |
| children | 818518dca552 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Wed Oct 22 05:41:00 2008 +0000 +++ b/lisp/international/mule-cmds.el Wed Oct 22 06:44:52 2008 +0000 @@ -286,7 +286,10 @@ (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)