Mercurial > emacs

changeset 14941:7e8ee35d0fb9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Electric-command-loop): Set universal-argument-other-key to 0.
author Richard M. Stallman <rms@gnu.org>
date Thu, 04 Apr 1996 22:06:47 +0000
parents 9dceb7afbb68
children 3432e5570488
files lisp/electric.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/electric.el	Thu Apr 04 17:01:45 1996 +0000
+++ b/lisp/electric.el	Thu Apr 04 22:06:47 1996 +0000
@@ -67,8 +67,10 @@
             (setq prompt-string "->")))
       (setq cmd (read-key-sequence prompt-string))
       (setq last-command-char (aref cmd (1- (length cmd)))
-	    this-command (key-binding cmd)
+	    this-command (key-binding cmd t)
 	    cmd this-command)
+      ;; This makes universal-argument-other-key work.
+      (setq universal-argument-num-events 0)
       (if (or (prog1 quit-flag (setq quit-flag nil))
 	      (eq last-input-char ?\C-g))
 	  (progn (setq unread-command-events nil