Mercurial > emacs
changeset 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 | 4128241e0551 |
| children | 1ef2659c506c |
| files | lisp/files.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
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