(sit_for): Update prototype.

[gnu-emacs] / lisp / repeat.el

diff --git a/lisp/repeat.el b/lisp/repeat.el
index ae2cc97498ad15af1c85a54f9d450bd68df4e6a1..b225b729defa7460a87f48609165c0a54dad38c6 100644 (file)
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -1,6 +1,7 @@
 ;;; repeat.el --- convenient way to repeat the previous command
 
-;; Copyright (C) 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 2002, 2003, 2004, 2005,
+;;   2006 Free Software Foundation, Inc.
 
 ;; Author: Will Mengarini <seldon@eskimo.com>
 ;; Created: Mo 02 Mar 98
@@ -21,8 +22,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
@@ -284,7 +285,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 +347,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