changeset 4093:d24725412d47

(compilation-parse-errors): After skipping two lines, move one char back so point before the newline.
author Roland McGrath <roland@gnu.org>
date Thu, 15 Jul 1993 03:08:17 +0000
parents e72012acb5fb
children 1dae74fd93d2
files lisp/progmodes/compile.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/compile.el	Thu Jul 15 01:55:13 1993 +0000
+++ b/lisp/progmodes/compile.el	Thu Jul 15 03:08:17 1993 +0000
@@ -917,7 +917,12 @@
     ;; 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 "\\)\\|"