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