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

(compilation-setup):

Browse source 
Set `next-error-overlay-arrow-position' to nil.  Also set it to
nil in the local hook `kill-buffer-hook'.  Make local variable
`overlay-arrow-string' and set it to "=>".
(compilation-goto-locus): Set BOL position to
`next-error-overlay-arrow-position' instead of
`overlay-arrow-position'.
This commit is contained in:
Juri Linkov 2005-04-07 15:15:38 +00:00
parent 9c9b00d67f
commit 6a1cdc5bee
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/progmodes/compile.el
View file

@ -1233,6 +1233,10 @@ Optional argument MINOR indicates this is called from
(make-local-variable 'compilation-messages-start)
(make-local-variable 'compilation-error-screen-columns)
(make-local-variable 'overlay-arrow-position)
(set (make-local-variable 'overlay-arrow-string) "=>")
(setq next-error-overlay-arrow-position nil)
(add-hook 'kill-buffer-hook
(lambda () (setq next-error-overlay-arrow-position nil)) nil t)
;; Note that compilation-next-error-function is for interfacing
;; with the next-error function in simple.el, and it's only
;; coincidentally named similarly to compilation-next-error.
@ -1641,8 +1645,9 @@ and overlay is highlighted between MK and END-MK."
(numberp next-error-highlight)))
(delete-overlay compilation-highlight-overlay))))))
(when (and (eq next-error-highlight 'fringe-arrow))
(set (make-local-variable 'overlay-arrow-position)
(copy-marker (line-beginning-position))))))
(setq next-error-overlay-arrow-position
(copy-marker (line-beginning-position))))))
(defun compilation-find-file (marker filename dir &rest formats)
"Find a buffer for file FILENAME.