mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(repeat): Invoke pre-command-hook and post-command-hook.

Browse source
This commit is contained in:
Eli Zaretskii 2005-04-16 15:28:10 +00:00
parent 3d70f2795c
commit ccb9871da3
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/repeat.el
View file

@ -284,7 +284,9 @@ can be modified by the global variable `repeat-on-final-keystroke'."
;; does not alter it.
(let ((real-last-command real-last-command))
(execute-kbd-macro real-last-command))
(call-interactively real-last-command)))))
(run-hooks 'pre-command-hook)
(call-interactively real-last-command)
(run-hooks 'post-command-hook)))))
(when repeat-repeat-char
;; A simple recursion here gets into trouble with max-lisp-eval-depth
;; on long sequences of repetitions of a command like `forward-word'