Mercurial > emacs
comparison lisp/macros.el @ 427:1507978a453c
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 06 Nov 1991 01:23:44 +0000 |
| parents | 4b1d23627759 |
| children | 505130d1ddf8 |
comparison
equal
deleted
inserted
replaced
| 426:22e3aeabf1e9 | 427:1507978a453c |
|---|---|
| 153 (setq macro last-kbd-macro))) | 153 (setq macro last-kbd-macro))) |
| 154 (save-excursion | 154 (save-excursion |
| 155 (let ((end-marker (progn | 155 (let ((end-marker (progn |
| 156 (goto-char bottom) | 156 (goto-char bottom) |
| 157 (beginning-of-line) | 157 (beginning-of-line) |
| 158 (point-marker)))) | 158 (point-marker))) |
| 159 next-line-marker) | |
| 159 (goto-char top) | 160 (goto-char top) |
| 160 (if (not (bolp)) | 161 (if (not (bolp)) |
| 161 (forward-line 1)) | 162 (forward-line 1)) |
| 162 (while (< (point) end-marker) | 163 (setq next-line-marker (point-marker)) |
| 164 (while (< next-line-marker end-marker) | |
| 165 (goto-char next-line-marker) | |
| 163 (save-excursion | 166 (save-excursion |
| 164 (execute-kbd-macro macro)) | 167 (forward-line 1) |
| 165 (forward-line 1))))) | 168 (set-marker next-line-marker (point))) |
| 169 (save-excursion | |
| 170 (execute-kbd-macro (or macro last-kbd-macro)))) | |
| 171 (set-marker end-marker nil) | |
| 172 (set-marker next-line-marker nil)))) | |
| 166 | 173 |
| 167 ;;;###autoload | 174 ;;;###autoload |
| 168 (define-key ctl-x-map "q" 'kbd-macro-query) | 175 (define-key ctl-x-map "q" 'kbd-macro-query) |