# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1224657892 0
# Node ID f4efd0ab2185e905a62b04a66b9910efcc0339a8
# Parent  c1e73559ff872b05b58b39e9cb6556011b713da9
(universal-coding-system-argument): Check for C-g.  (Bug#1205)

diff -r c1e73559ff87 -r f4efd0ab2185 lisp/international/mule-cmds.el
--- 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)