mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Copy 2012-01-25 compilation-next-error-function change to another function.

Browse Source 
* lisp/progmodes/compile.el (compilation-internal-error-properties):
Respect compilation-first-column in the "*compilation*" buffer.
This commit is contained in:
Glenn Morris 2012-01-31 23:32:21 -08:00
parent 6df372680c
commit 6035be5240
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2012-02-01 Glenn Morris <rgm@gnu.org>
* progmodes/compile.el (compilation-internal-error-properties):
Respect compilation-first-column in the "*compilation*" buffer.
* emacs-lisp/easy-mmode.el (define-minor-mode):
Relax :variable's test for a named function.

6
lisp/progmodes/compile.el
View File

@ -1058,6 +1058,7 @@ FMTS is a list of format specs for transforming the file name.
(marker
(if marker-line (compilation--loc->marker (cadr marker-line))))
(screen-columns compilation-error-screen-columns)
(first-column compilation-first-column)
end-marker loc end-loc)
(if (not (and marker (marker-buffer marker)))
(setq marker nil) ; no valid marker for this file
@ -1078,7 +1079,10 @@ FMTS is a list of format specs for transforming the file name.
;; Obey the compilation-error-screen-columns of the target
;; buffer if its major mode set it buffer-locally.
(if (local-variable-p 'compilation-error-screen-columns)
compilation-error-screen-columns screen-columns)))
compilation-error-screen-columns screen-columns))
(compilation-first-column
(if (local-variable-p 'compilation-first-column)
compilation-first-column first-column)))
(save-excursion
(save-restriction
(widen)