(mail-font-lock-keywords): Match any number of

[gnu-emacs] / lisp / repeat.el

diff --git a/lisp/repeat.el b/lisp/repeat.el
index ae2cc97498ad15af1c85a54f9d450bd68df4e6a1..5f0811d355c9575e2f17a1f28eef8131834b9f22 100644 (file)
--- 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'
@@ -344,4 +346,5 @@ can be modified by the global variable `repeat-on-final-keystroke'."
 
 (provide 'repeat)
 
+;;; arch-tag: cd569600-a1ad-4fa7-9062-bb91dfeaf1db
 ;;; repeat.el ends here