From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 16 Apr 2005 15:28:10 +0000 (+0000)
Subject: (repeat): Invoke pre-command-hook and post-command-hook.
X-Git-Tag: ttn-vms-21-2-B4~962
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ccb9871da323d805da12934a4be39442ae0852c6;p=emacs.git

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

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  <MPHodges@member.fsf.org>  (tiny change)
+
+	* repeat.el (repeat): Invoke pre-command-hook and
+	post-command-hook.
+
 2005-04-16  Chong Yidong  <cyd@stupidchicken.com>
 
 	* 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'