mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1991-11-06 01:23:44 +00:00
parent 2b8a6fbfd8
commit 5277487d9c
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/macros.el
View File

@ -155,14 +155,21 @@ and then select the region of un-tablified names and use
(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)