From: Roland McGrath <roland@gnu.org>
Date: Thu, 15 Jul 1993 03:08:17 +0000 (+0000)
Subject: (compilation-parse-errors): After skipping two lines, move one char back so
X-Git-Tag: emacs-19.34~11758
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e4301efa598474b666ef790973019c7e7dafcc9;p=emacs.git

(compilation-parse-errors): After skipping two lines, move one char back so
point before the newline.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 88daa725119..e13bec9f2df 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -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 "\\)\\|"