(compilation-parse-errors): After skipping two lines, move one char back so

point before the newline.
This commit is contained in:
Roland McGrath
1993-07-15 03:08:17 +00:00
parent a223b10d5e
commit 2e4301efa5

View File

@@ -917,7 +917,12 @@ See variable `compilation-parse-errors-function' for the interface it uses."
;; Don't parse the first two lines as error messages.
;; This matters for grep.
(if (bobp)
(forward-line 2))
(progn
(forward-line 2)
;; Move back so point is before the newline.
;; This matters because some error regexps use \n instead of ^
;; to be faster.
(forward-char -1)))
;; Compile all the regexps we want to search for into one.
(setq regexp (concat "\\(" compilation-enter-directory-regexp "\\)\\|"