# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 740131147 0
# Node ID 8a0b09b3a24c434dbe1110e9acc70380f316e496
# Parent  dea4ce3d7a4de051bf3bc3c51a0a2ed450322cbc
(dired-repeat-over-lines): Going fwd, skip new lines
that FUNCTION inserts after the current line.
Going backwd, no need for dired-move-to-filename each time.

diff -r dea4ce3d7a4d -r 8a0b09b3a24c lisp/dired.el
--- a/lisp/dired.el	Tue Jun 15 07:48:27 1993 +0000
+++ b/lisp/dired.el	Tue Jun 15 07:59:07 1993 +0000
@@ -1542,21 +1542,27 @@
 
 (defun dired-repeat-over-lines (arg function)
   ;; This version skips non-file lines.
-  (beginning-of-line)
-  (while (and (> arg 0) (not (eobp)))
-    (setq arg (1- arg))
+  (let ((pos (make-marker)))
     (beginning-of-line)
-    (while (and (not (eobp)) (dired-between-files)) (forward-line 1))
-    (save-excursion (funcall function))
-    (forward-line 1))
-  (while (and (< arg 0) (not (bobp)))
-    (setq arg (1+ arg))
-    (forward-line -1)
-    (while (and (not (bobp)) (dired-between-files)) (forward-line -1))
-    (beginning-of-line)
-    (save-excursion (funcall function))
-    (dired-move-to-filename))
-  (dired-move-to-filename))
+    (while (and (> arg 0) (not (eobp)))
+      (setq arg (1- arg))
+      (beginning-of-line)
+      (while (and (not (eobp)) (dired-between-files)) (forward-line 1))
+      (save-excursion
+	(forward-line 1)
+	(move-marker pos (1+ (point))))
+      (save-excursion (funcall function))
+      ;; Advance to the next line--actually, to the line that *was* next.
+      ;; (If FUNCTION inserted some new lines in between, skip them.)
+      (goto-char pos))
+    (while (and (< arg 0) (not (bobp)))
+      (setq arg (1+ arg))
+      (forward-line -1)
+      (while (and (not (bobp)) (dired-between-files)) (forward-line -1))
+      (beginning-of-line)
+      (save-excursion (funcall function)))
+    (move-marker pos nil)
+    (dired-move-to-filename)))
 
 (defun dired-between-files ()
   ;; Point must be at beginning of line