procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(compilation-mode-font-lock-keywords): Do not prepend "^ *" to

Browse source 
non-anchored patterns, like the perl one (bug#3928).
This commit is contained in:
Sam Steingold 2009-10-12 21:04:15 +00:00
parent cd29f88b1d
commit 0cd16af432
2 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,7 +1,10 @@
2009-10-12 Sam Steingold <sds@gnu.org>
* progmodes/compile.el (compilation-next-error-function): Fix the
timestamps if the buffer has been visited before
timestamps if the buffer has been visited before.
(compilation-mode-font-lock-keywords): Do not prepend "^ *" to
non-anchored patterns, like the perl one (bug#3928).
2009-10-12 Glenn Morris <rgm@gnu.org>

9
lisp/progmodes/compile.el
View file

@ -989,11 +989,10 @@ FMTS is a list of format specs for transforming the file name.
;; another solution is to modify (some?) regexps in
;; `compilation-error-regexp-alist'.
;; note that omake usage is not limited to ocaml and C (for stubs).
(unless (string-match (concat "^" (regexp-quote "^ *")) pat)
(setq pat (concat "^ *"
(if (= ?^ (aref pat 0))
(substring pat 1)
pat))))
(when (and (= ?^ (aref pat 0)) ; anchored: starts with "^"
;; but does not allow an arbitrary number of leading spaces
(not (and (= ? (aref pat 1)) (= ?* (aref pat 1)))))
(setq pat (concat "^ *" (substring pat 1))))
(if (consp file) (setq fmt (cdr file) file (car file)))
(if (consp line) (setq end-line (cdr line) line (car line)))
(if (consp col) (setq end-col (cdr col) col (car col)))