diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-04-04 22:06:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-04-04 22:06:47 +0000 |
| commit | ef2df8a6ac42d2c1d11492f9f6fe60e63a3d2599 (patch) | |
| tree | 17c023ed747dfa1cea2a8810410bae1efc396866 /lisp | |
| parent | 83b1e78b6eebea61579729509dca394922603857 (diff) | |
| download | emacs-ef2df8a6ac42d2c1d11492f9f6fe60e63a3d2599.tar.gz | |
(Electric-command-loop): Set universal-argument-other-key to 0.
Diffstat (limited to 'lisp')
| -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 @@ (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 |