Mercurial > emacs
changeset 427:1507978a453c
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 06 Nov 1991 01:23:44 +0000 |
| parents | 22e3aeabf1e9 |
| children | a24ab90a6983 |
| files | lisp/macros.el |
| diffstat | 1 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/macros.el Tue Nov 05 18:48:22 1991 +0000 +++ b/lisp/macros.el Wed Nov 06 01:23:44 1991 +0000 @@ -155,14 +155,21 @@ (let ((end-marker (progn (goto-char bottom) (beginning-of-line) - (point-marker)))) + (point-marker))) + next-line-marker) (goto-char top) (if (not (bolp)) (forward-line 1)) - (while (< (point) end-marker) + (setq next-line-marker (point-marker)) + (while (< next-line-marker end-marker) + (goto-char next-line-marker) (save-excursion - (execute-kbd-macro macro)) - (forward-line 1))))) + (forward-line 1) + (set-marker next-line-marker (point))) + (save-excursion + (execute-kbd-macro (or macro last-kbd-macro)))) + (set-marker end-marker nil) + (set-marker next-line-marker nil)))) ;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query)