From ccb9871da323d805da12934a4be39442ae0852c6 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 16 Apr 2005 15:28:10 +0000 Subject: [PATCH] (repeat): Invoke pre-command-hook and post-command-hook. --- lisp/ChangeLog | 5 +++++ lisp/repeat.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b8c35544cc8..3d2e37b25d7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-04-16 Matt Hodges (tiny change) + + * repeat.el (repeat): Invoke pre-command-hook and + post-command-hook. + 2005-04-16 Chong Yidong * filesets.el (filesets-add-buffer): If user supplies a name of a diff --git a/lisp/repeat.el b/lisp/repeat.el index aa73c869675..5f0811d355c 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -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' -- 2.39.2