New file.

[gnu-emacs] / lisp / electric.el

diff --git a/lisp/electric.el b/lisp/electric.el
index 2b95a1c2a3ada0d7e0ac8b75dc6b267c6028a9d3..8a155b324d5d8de41c7da96c5df5fa6a74a48b38 100644 (file)
--- 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