(turn-off-xterm-mouse-tracking): Doc fix.

[gnu-emacs] / lisp / electric.el

diff --git a/lisp/electric.el b/lisp/electric.el
index 2b95a1c2a3ada0d7e0ac8b75dc6b267c6028a9d3..d4678a7e3e2a2b9c2a08e81b9859e8278bca0b6a 100644 (file)
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -1,4 +1,4 @@
-;;; electric.el --- window maker and Command loop for `electric' modes.
+;;; electric.el --- window maker and Command loop for `electric' modes
 
 ;; Copyright (C) 1985, 1986, 1995 Free Software Foundation, Inc.
 
@@ -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