*** empty log message ***

1 files changed, 11 insertions, 4 deletions

diff --git a/lisp/macros.el b/lisp/macros.el
index 630565fbc5e..76f1f6fe728 100644
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -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)