# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1104852343 0
# Node ID 1b286a12854f973fabc67aeb56083b7a6541aa14
# Parent  4128241e0551cc654303cb286a99b25b4c363010
(insert-directory): Only look for error lines in
inserted text.  Don't move too far after processing --dired
markers.

diff -r 4128241e0551 -r 1b286a12854f lisp/files.el
--- a/lisp/files.el	Tue Jan 04 14:59:47 2005 +0000
+++ b/lisp/files.el	Tue Jan 04 15:25:43 2005 +0000
@@ -4560,7 +4560,7 @@
 		    error-lines)
 		;; Find all the lines that are error messages,
 		;; and record the bounds of each one.
-		(goto-char (point-min))
+		(goto-char beg)
 		(while (< (point) linebeg)
 		  (or (eql (following-char) ?\s)
 		      (push (list (point) (line-end-position)) error-lines))
@@ -4586,11 +4586,9 @@
 		      (end-of-line))))
 		(goto-char end)
 		(beginning-of-line)
-		(delete-region (point) (progn (forward-line 2) (point))))
-	      (forward-line 1)
+		(delete-region (point) (progn (forward-line 1) (point))))
 	      (if (looking-at "//DIRED-OPTIONS//")
-		  (delete-region (point) (progn (forward-line 1) (point)))
-		(forward-line 1))))
+		  (delete-region (point) (progn (forward-line 1) (point))))))
 
 	  ;; Now decode what read if necessary.
 	  (let ((coding (or coding-system-for-read