[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/files.el
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/files.el |
Date: |
Tue, 04 Jan 2005 10:38:11 -0500 |
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