284 |
;; does not alter it. |
;; does not alter it. |
285 |
(let ((real-last-command real-last-command)) |
(let ((real-last-command real-last-command)) |
286 |
(execute-kbd-macro real-last-command)) |
(execute-kbd-macro real-last-command)) |
287 |
(call-interactively real-last-command))))) |
(run-hooks 'pre-command-hook) |
288 |
|
(call-interactively real-last-command) |
289 |
|
(run-hooks 'post-command-hook))))) |
290 |
(when repeat-repeat-char |
(when repeat-repeat-char |
291 |
;; A simple recursion here gets into trouble with max-lisp-eval-depth |
;; A simple recursion here gets into trouble with max-lisp-eval-depth |
292 |
;; on long sequences of repetitions of a command like `forward-word' |
;; on long sequences of repetitions of a command like `forward-word' |