/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.741 by rms, Mon Jan 3 02:40:56 2005 UTC revision 1.742 by schwab, Tue Jan 4 15:25:43 2005 UTC
# Line 4560  normally equivalent short `-D' option is Line 4560  normally equivalent short `-D' option is
4560                      error-lines)                      error-lines)
4561                  ;; Find all the lines that are error messages,                  ;; Find all the lines that are error messages,
4562                  ;; and record the bounds of each one.                  ;; and record the bounds of each one.
4563                  (goto-char (point-min))                  (goto-char beg)
4564                  (while (< (point) linebeg)                  (while (< (point) linebeg)
4565                    (or (eql (following-char) ?\s)                    (or (eql (following-char) ?\s)
4566                        (push (list (point) (line-end-position)) error-lines))                        (push (list (point) (line-end-position)) error-lines))
# Line 4586  normally equivalent short `-D' option is Line 4586  normally equivalent short `-D' option is
4586                        (end-of-line))))                        (end-of-line))))
4587                  (goto-char end)                  (goto-char end)
4588                  (beginning-of-line)                  (beginning-of-line)
4589                  (delete-region (point) (progn (forward-line 2) (point))))                  (delete-region (point) (progn (forward-line 1) (point))))
               (forward-line 1)  
4590                (if (looking-at "//DIRED-OPTIONS//")                (if (looking-at "//DIRED-OPTIONS//")
4591                    (delete-region (point) (progn (forward-line 1) (point)))                    (delete-region (point) (progn (forward-line 1) (point))))))
                 (forward-line 1))))  
4592    
4593            ;; Now decode what read if necessary.            ;; Now decode what read if necessary.
4594            (let ((coding (or coding-system-for-read            (let ((coding (or coding-system-for-read

Legend:
Removed from v.1.741  
changed lines
  Added in v.1.742

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26