mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(insert-directory): Only look for error lines in

Browse source 
inserted text.  Don't move too far after processing --dired
markers.
This commit is contained in:
Andreas Schwab 2005-01-04 15:25:43 +00:00
parent 69ba53f792
commit 11bd2f9c9b
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/files.el
View file

@ -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