Commit 0cd16af4 authored by Sam Steingold's avatar Sam Steingold
Browse files

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

non-anchored patterns, like the perl one (bug#3928).
parent cd29f88b
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>
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment