diff options
| author | Richard M. Stallman | 1996-04-04 22:06:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-04-04 22:06:47 +0000 |
| commit | f867d8d3aedfbd8ee23c79a06b72a4e4ecbd9a01 (patch) | |
| tree | cf8bdf62c52df6cb21525f8b067636057679158d | |
| parent | be2e861f982bc6bce832bdc00d68fd7597fdc70c (diff) | |
| download | emacs-f867d8d3aedfbd8ee23c79a06b72a4e4ecbd9a01.tar.gz emacs-f867d8d3aedfbd8ee23c79a06b72a4e4ecbd9a01.zip | |
(Electric-command-loop): Set universal-argument-other-key to 0.
| -rw-r--r-- | lisp/electric.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/electric.el b/lisp/electric.el index 2b95a1c2a3a..8a155b324d5 100644 --- a/lisp/electric.el +++ b/lisp/electric.el | |||
| @@ -67,8 +67,10 @@ | |||
| 67 | (setq prompt-string "->"))) | 67 | (setq prompt-string "->"))) |
| 68 | (setq cmd (read-key-sequence prompt-string)) | 68 | (setq cmd (read-key-sequence prompt-string)) |
| 69 | (setq last-command-char (aref cmd (1- (length cmd))) | 69 | (setq last-command-char (aref cmd (1- (length cmd))) |
| 70 | this-command (key-binding cmd) | 70 | this-command (key-binding cmd t) |
| 71 | cmd this-command) | 71 | cmd this-command) |
| 72 | ;; This makes universal-argument-other-key work. | ||
| 73 | (setq universal-argument-num-events 0) | ||
| 72 | (if (or (prog1 quit-flag (setq quit-flag nil)) | 74 | (if (or (prog1 quit-flag (setq quit-flag nil)) |
| 73 | (eq last-input-char ?\C-g)) | 75 | (eq last-input-char ?\C-g)) |
| 74 | (progn (setq unread-command-events nil | 76 | (progn (setq unread-command-events nil |