diff options
| author | Richard M. Stallman | 1995-11-11 23:56:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-11-11 23:56:47 +0000 |
| commit | 06697cdba8752cca53b2886e7f3f62fcb991f65d (patch) | |
| tree | faab62c3675c09b4b80535a8eb6ec86639d6e7af | |
| parent | 7a79b90c1acb60b1d0cfef5d1781ba4e3d100b61 (diff) | |
| download | emacs-06697cdba8752cca53b2886e7f3f62fcb991f65d.tar.gz emacs-06697cdba8752cca53b2886e7f3f62fcb991f65d.zip | |
(universal-argument-other-key): Add to existing unread-command-events value.
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 51af9d364fe..9d34a467d96 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1016,7 +1016,8 @@ Repeating \\[universal-argument] without digits or minus sign | |||
| 1016 | (let* ((key (this-command-keys)) | 1016 | (let* ((key (this-command-keys)) |
| 1017 | (keylist (listify-key-sequence key))) | 1017 | (keylist (listify-key-sequence key))) |
| 1018 | (setq unread-command-events | 1018 | (setq unread-command-events |
| 1019 | (nthcdr universal-argument-num-events keylist))) | 1019 | (append (nthcdr universal-argument-num-events keylist) |
| 1020 | unread-command-events))) | ||
| 1020 | (reset-this-command-lengths) | 1021 | (reset-this-command-lengths) |
| 1021 | (setq overriding-terminal-local-map nil)) | 1022 | (setq overriding-terminal-local-map nil)) |
| 1022 | 1023 | ||