# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 689390624 0
# Node ID 1507978a453c54977ccdc700fe88e6729bc96702
# Parent  22e3aeabf1e9d09abce211762ff67a2c25125f63
*** empty log message ***

diff -r 22e3aeabf1e9 -r 1507978a453c lisp/macros.el
--- a/lisp/macros.el	Tue Nov 05 18:48:22 1991 +0000
+++ b/lisp/macros.el	Wed Nov 06 01:23:44 1991 +0000
@@ -155,14 +155,21 @@
     (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)