diff options
| author | Richard M. Stallman | 2001-02-10 16:33:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-02-10 16:33:44 +0000 |
| commit | bea4b9cef458b944a6cb7e76e75c14bb5f6d682b (patch) | |
| tree | cd192003e5e97945eb5fbf04ee3cdaa350be83a6 /lisp | |
| parent | ad0fd6b9f38d7edbcefd12166cea376e8683fd12 (diff) | |
| download | emacs-bea4b9cef458b944a6cb7e76e75c14bb5f6d682b.tar.gz emacs-bea4b9cef458b944a6cb7e76e75c14bb5f6d682b.zip | |
(repeat): Don't let execute-kbd-macro alter real-last-command.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/repeat.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/repeat.el b/lisp/repeat.el index 523ee3ce964..d11da6aa498 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el | |||
| @@ -280,7 +280,10 @@ can be modified by the global variable `repeat-on-final-keystroke'." | |||
| 280 | (let ((indirect (indirect-function real-last-command))) | 280 | (let ((indirect (indirect-function real-last-command))) |
| 281 | (if (or (stringp indirect) | 281 | (if (or (stringp indirect) |
| 282 | (vectorp indirect)) | 282 | (vectorp indirect)) |
| 283 | (execute-kbd-macro real-last-command) | 283 | ;; Bind real-last-command so that executing the macro |
| 284 | ;; does not alter it. | ||
| 285 | (let ((real-last-command real-last-command)) | ||
| 286 | (execute-kbd-macro real-last-command)) | ||
| 284 | (call-interactively real-last-command))))) | 287 | (call-interactively real-last-command))))) |
| 285 | (when repeat-repeat-char | 288 | (when repeat-repeat-char |
| 286 | ;; A simple recursion here gets into trouble with max-lisp-eval-depth | 289 | ;; A simple recursion here gets into trouble with max-lisp-eval-depth |