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.