Mercurial > emacs
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 "\\)\\|"