Mercurial > emacs
diff lisp/files.el @ 59351:1b286a12854f
(insert-directory): Only look for error lines in
inserted text. Don't move too far after processing --dired
markers.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Tue, 04 Jan 2005 15:25:43 +0000 |
parents | 28884f0312e2 |
children | 366109711118 cb67264d6096 |
line wrap: on
line diff
--- 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