Mercurial > emacs
changeset 61362:0c7ec8f85244
(compilation-setup):
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'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Thu, 07 Apr 2005 15:15:38 +0000 |
| parents | d5052fc4ea58 |
| children | eebed65dbe97 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Thu Apr 07 15:15:15 2005 +0000 +++ b/lisp/progmodes/compile.el Thu Apr 07 15:15:38 2005 +0000 @@ -1233,6 +1233,10 @@ (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 @@ (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.