# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1112886938 0
# Node ID 0c7ec8f85244294da2bb7e38832c9f0663a7588d
# Parent  d5052fc4ea58316efde47a80478d132461c5569b
(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 -r d5052fc4ea58 -r 0c7ec8f85244 lisp/progmodes/compile.el
--- 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.