diff options
| author | Andreas Schwab <[email protected]> | 2005-01-04 15:25:43 +0000 |
|---|---|---|
| committer | Andreas Schwab <[email protected]> | 2005-01-04 15:25:43 +0000 |
| commit | 11bd2f9c9b6e1d2af39f2aab177614086e5a0aa4 (patch) | |
| tree | 6101bb84daf0236e36011dc48cc381ac81e8e5f9 /lisp | |
| parent | 69ba53f79228c78cfa735d56df666ba721edab1c (diff) | |
(insert-directory): Only look for error lines in
inserted text. Don't move too far after processing --dired
markers.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/files.el b/lisp/files.el index a4a102c958..cdaa7a5adb 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -4560,7 +4560,7 @@ normally equivalent short `-D' option is just passed on to 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 @@ normally equivalent short `-D' option is just passed on to (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 |