mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

compile/grep fix for bug#10594

Browse source 
* lisp/progmodes/compile.el (compilation-next-error-function):
Respect compilation-first-column in the "*compilation*" buffer.
* lisp/progmodes/grep.el (grep-first-column): New variable.
This commit is contained in:
Glenn Morris 2012-01-24 21:01:22 -05:00
parent 5ae1a6c8a2
commit 5ddce96c61
3 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/compile.el
View file

@ -2271,6 +2271,7 @@ This is the value of `next-error-function' in Compilation buffers."
(when reset
(setq compilation-current-error nil))
(let* ((screen-columns compilation-error-screen-columns)
(first-column compilation-first-column)
(last 1)
(msg (compilation-next-error (or n 1) nil
(or compilation-current-error
@ -2309,7 +2310,10 @@ This is the value of `next-error-function' in Compilation buffers."
;; 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-restriction
(widen)
(goto-char (point-min))