[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/10/22 06:44:53

Index: mule-cmds.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.341
retrieving revision 1.342
diff -u -b -r1.341 -r1.342
--- mule-cmds.el        5 Oct 2008 19:07:03 -0000       1.341
+++ mule-cmds.el        22 Oct 2008 06:44:52 -0000      1.342
@@ -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)