mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

* lisp/progmodes/compile.el: Obey compilation-first-column in dest buffer.

Browse Source 
(compilation-error-properties, compilation-move-to-column):
Handle compilation-first-column while in the target buffer.
This commit is contained in:
Stefan Monnier 2011-11-18 10:09:42 -05:00
parent c400c4d798
commit 6944dbc18a
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2011-11-18 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/compile.el: Obey compilation-first-column in dest buffer.
(compilation-error-properties, compilation-move-to-column):
Handle compilation-first-column while in the target buffer.
* progmodes/cc-engine.el (c-remove-stale-state-cache-backwards):
Don't hardcode point-min==1.

5
lisp/progmodes/compile.el
View File

@ -1013,11 +1013,11 @@ POS and RES.")
(setq col (funcall col))
(and
(setq col (match-string-no-properties col))
(setq col (- (string-to-number col) compilation-first-column)))))
(setq col (string-to-number col)))))
(if (and end-col (functionp end-col))
(setq end-col (funcall end-col))
(if (and end-col (setq end-col (match-string-no-properties end-col)))
(setq end-col (- (string-to-number end-col) compilation-first-column -1))
(setq end-col (- (string-to-number end-col) -1))
(if end-line (setq end-col -1))))
(if (consp type) ; not a static type, check what it is.
(setq type (or (and (car type) (match-end (car type)) 1)
@ -1037,6 +1037,7 @@ POS and RES.")
"Go to column COL on the current line.
If SCREEN is non-nil, columns are screen columns, otherwise, they are
just char-counts."
(setq col (- col compilation-first-column))
(if screen
(move-to-column (max col 0))
(goto-char (min (+ (line-beginning-position) col) (line-end-position)))))