Mercurial > emacs

changeset 61585:d5d321d5c34f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(repeat): Invoke pre-command-hook and post-command-hook.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 16 Apr 2005 15:27:09 +0000
parents 18a28b7d3930
children 32cca11a66f8
files lisp/repeat.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/repeat.el	Sat Apr 16 15:22:12 2005 +0000
+++ b/lisp/repeat.el	Sat Apr 16 15:27:09 2005 +0000
@@ -284,7 +284,9 @@
 	      ;; 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'