Mercurial > emacs
diff lisp/repeat.el @ 88155:d7ddb3e565de
sync with trunk
| author | Henrik Enberg <henrik.enberg@telia.com> |
|---|---|
| date | Mon, 16 Jan 2006 00:03:54 +0000 |
| parents | e88404e8f2cf |
| children |
line wrap: on
line diff
--- a/lisp/repeat.el Sun Jan 15 23:02:10 2006 +0000 +++ b/lisp/repeat.el Mon Jan 16 00:03:54 2006 +0000 @@ -1,6 +1,6 @@ ;;; repeat.el --- convenient way to repeat the previous command -;; Copyright (C) 1998 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Will Mengarini <seldon@eskimo.com> ;; Created: Mo 02 Mar 98 @@ -21,8 +21,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 +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' @@ -344,4 +346,5 @@ (provide 'repeat) +;;; arch-tag: cd569600-a1ad-4fa7-9062-bb91dfeaf1db ;;; repeat.el ends here