X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/b578f267af27af50e3c091f8c9c9eee939b69978..d41832c507ecb4c9544e763dbe1b50984ed0717b:/lisp/electric.el?ds=sidebyside

diff --git a/lisp/electric.el b/lisp/electric.el
index 2b95a1c2a3..8a155b324d 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -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