From: Juri Linkov <juri@jurta.org>
Date: Thu, 7 Apr 2005 15:15:38 +0000 (+0000)
Subject: (compilation-setup):
X-Git-Tag: ttn-vms-21-2-B4~1160
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a1cdc5bee322596240622770180e642ac28a34f;p=emacs.git

(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'.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index bafc901d3d1..bcff4d2f70d 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -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.