diff options
| author | Karl Heuer <kwzh@gnu.org> | 1999-03-30 18:07:16 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1999-03-30 18:07:16 +0000 |
| commit | 00ac134b3daa58c5edb70febb6c8c3c9323f916f (patch) | |
| tree | 001b3e2c605b354d5c5877aa2b8f90bff23ddf19 /lisp/repeat.el | |
| parent | 80184dac072806f282c0bae51bd0b2569083cdda (diff) | |
| download | emacs-00ac134b3daa58c5edb70febb6c8c3c9323f916f.tar.gz | |
Don't require advice.
(repeat): Do function-indirection in check for kbd macro.
In self-insert case, use the *last* char in INSERTION.
Diffstat (limited to 'lisp/repeat.el')
| -rw-r--r-- | lisp/repeat.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/repeat.el b/lisp/repeat.el index cc31a70d937..523ee3ce964 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -271,16 +271,17 @@ can be modified by the global variable `repeat-on-final-keystroke'." ;; includes that many copies of the same character. ;; So use just the first character ;; and repeat it the right number of times. - (setq insertion (substring insertion 0 1)) + (setq insertion (substring insertion -1)) (let ((count (prefix-numeric-value repeat-arg)) (i 0)) (while (< i count) (repeat-self-insert insertion) (setq i (1+ i))))) - (if (or (stringp real-last-command) - (vectorp real-last-command)) - (execute-kbd-macro real-last-command) - (call-interactively real-last-command)))) + (let ((indirect (indirect-function real-last-command))) + (if (or (stringp indirect) + (vectorp indirect)) + (execute-kbd-macro real-last-command) + (call-interactively real-last-command))))) (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' |