Mercurial > emacs
comparison lisp/macros.el @ 107082:e8f9df14b15b
Close bug#5485.
David Burger <dburger at google.com> (tiny change)
* macros.el (apply-macro-to-region-lines): Minor simplification.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 03 Feb 2010 21:14:36 -0800 |
| parents | 1d1d5d9bd884 |
| children | e09a216f2aab |
comparison
equal
deleted
inserted
replaced
| 107081:ad4a4794a3d7 | 107082:e8f9df14b15b |
|---|---|
| 271 (save-excursion | 271 (save-excursion |
| 272 (forward-line 1) | 272 (forward-line 1) |
| 273 (set-marker next-line-marker (point))) | 273 (set-marker next-line-marker (point))) |
| 274 (save-excursion | 274 (save-excursion |
| 275 (let ((mark-active nil)) | 275 (let ((mark-active nil)) |
| 276 (execute-kbd-macro (or macro last-kbd-macro))))) | 276 (execute-kbd-macro macro)))) |
| 277 (set-marker end-marker nil) | 277 (set-marker end-marker nil) |
| 278 (set-marker next-line-marker nil)))) | 278 (set-marker next-line-marker nil)))) |
| 279 | 279 |
| 280 ;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query) | 280 ;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query) |
| 281 | 281 |