Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0cd16af4
Commit
0cd16af4
authored
Oct 12, 2009
by
Sam Steingold
Browse files
(compilation-mode-font-lock-keywords): Do not prepend "^ *" to
non-anchored patterns, like the perl one (bug#3928).
parent
cd29f88b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
6 deletions
+8
-6
lisp/ChangeLog
lisp/ChangeLog
+4
-1
lisp/progmodes/compile.el
lisp/progmodes/compile.el
+4
-5
No files found.
lisp/ChangeLog
View file @
0cd16af4
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>
...
...
lisp/progmodes/compile.el
View file @
0cd16af4
...
...
@@ -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)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment