procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* progmodes/compile.el (compilation-goto-locus): Use next-error-move-function.

Browse source
This commit is contained in:
Richard M. Stallman 2009-08-13 00:58:54 +00:00
parent 8cdba32b6c
commit 1fc01b083c
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2009-08-13 Richard Stallman <rms@gnu.org>
* progmodes/compile.el (compilation-goto-locus):
Use next-error-move-function.
* simple.el (next-error-move-function): New variable.
2009-08-12 Juri Linkov <juri@jurta.org>

6
lisp/progmodes/compile.el
View file

@ -2078,10 +2078,12 @@ and overlay is highlighted between MK and END-MK."
(if (window-dedicated-p (selected-window))
(pop-to-buffer (marker-buffer mk))
(switch-to-buffer (marker-buffer mk))))
;; If narrowing gets in the way of going to the right place, widen.
(unless (eq (goto-char mk) (point))
;; If narrowing gets in the way of going to the right place, widen.
(widen)
(goto-char mk))
(if next-error-move-function
(funcall next-error-move-function msg mk)
(goto-char mk)))
(if end-mk
(push-mark end-mk t)
(if mark-active (setq mark-active)))