[Emacs-diffs] Changes to emacs/lisp/files.el

[Andreas Schwab]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.741 emacs/lisp/files.el:1.742
*** emacs/lisp/files.el:1.741   Mon Jan  3 02:40:56 2005
--- emacs/lisp/files.el Tue Jan  4 15:25:43 2005
***************
*** 4560,4566 ****
                    error-lines)
                ;; Find all the lines that are error messages,
                ;; and record the bounds of each one.
!               (goto-char (point-min))
                (while (< (point) linebeg)
                  (or (eql (following-char) ?\s)
                      (push (list (point) (line-end-position)) error-lines))
--- 4560,4566 ----
                    error-lines)
                ;; Find all the lines that are error messages,
                ;; and record the bounds of each one.
!               (goto-char beg)
                (while (< (point) linebeg)
                  (or (eql (following-char) ?\s)
                      (push (list (point) (line-end-position)) error-lines))
***************
*** 4586,4596 ****
                      (end-of-line))))
                (goto-char end)
                (beginning-of-line)
!               (delete-region (point) (progn (forward-line 2) (point))))
!             (forward-line 1)
              (if (looking-at "//DIRED-OPTIONS//")
!                 (delete-region (point) (progn (forward-line 1) (point)))
!               (forward-line 1))))
  
          ;; Now decode what read if necessary.
          (let ((coding (or coding-system-for-read
--- 4586,4594 ----
                      (end-of-line))))
                (goto-char end)
                (beginning-of-line)
!               (delete-region (point) (progn (forward-line 1) (point))))
              (if (looking-at "//DIRED-OPTIONS//")
!                 (delete-region (point) (progn (forward-line 1) (point))))))
  
          ;; Now decode what read if necessary.
          (let ((coding (or coding-system-for-read