diff options
| author | Roland McGrath | 1993-07-15 03:08:17 +0000 |
|---|---|---|
| committer | Roland McGrath | 1993-07-15 03:08:17 +0000 |
| commit | 2e4301efa598474b666ef790973019c7e7dafcc9 (patch) | |
| tree | c83b6796c203b6cacc529715cde2c6187e779298 | |
| parent | a223b10d5e64e6a358a486407946571892f560b8 (diff) | |
| download | emacs-2e4301efa598474b666ef790973019c7e7dafcc9.tar.gz emacs-2e4301efa598474b666ef790973019c7e7dafcc9.zip | |
(compilation-parse-errors): After skipping two lines, move one char back so
point before the newline.
| -rw-r--r-- | lisp/progmodes/compile.el | 7 |
1 files changed, 6 insertions, 1 deletions
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." | |||
| 917 | ;; Don't parse the first two lines as error messages. | 917 | ;; Don't parse the first two lines as error messages. |
| 918 | ;; This matters for grep. | 918 | ;; This matters for grep. |
| 919 | (if (bobp) | 919 | (if (bobp) |
| 920 | (forward-line 2)) | 920 | (progn |
| 921 | (forward-line 2) | ||
| 922 | ;; Move back so point is before the newline. | ||
| 923 | ;; This matters because some error regexps use \n instead of ^ | ||
| 924 | ;; to be faster. | ||
| 925 | (forward-char -1))) | ||
| 921 | 926 | ||
| 922 | ;; Compile all the regexps we want to search for into one. | 927 | ;; Compile all the regexps we want to search for into one. |
| 923 | (setq regexp (concat "\\(" compilation-enter-directory-regexp "\\)\\|" | 928 | (setq regexp (concat "\\(" compilation-enter-directory-regexp "\\)\\|" |