Commit 5277487d authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 2b8a6fbf
...@@ -155,14 +155,21 @@ and then select the region of un-tablified names and use ...@@ -155,14 +155,21 @@ and then select the region of un-tablified names and use
(let ((end-marker (progn (let ((end-marker (progn
(goto-char bottom) (goto-char bottom)
(beginning-of-line) (beginning-of-line)
(point-marker)))) (point-marker)))
next-line-marker)
(goto-char top) (goto-char top)
(if (not (bolp)) (if (not (bolp))
(forward-line 1)) (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 (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 ;;;###autoload
(define-key ctl-x-map "q" 'kbd-macro-query) (define-key ctl-x-map "q" 'kbd-macro-query)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment