[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Juri Linkov]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.348 
emacs/lisp/progmodes/compile.el:1.349
*** emacs/lisp/progmodes/compile.el:1.348       Tue Mar 29 04:56:44 2005
--- emacs/lisp/progmodes/compile.el     Thu Apr  7 15:15:38 2005
***************
*** 1233,1238 ****
--- 1233,1242 ----
    (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,1648 ****
                         (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))))))
  
  (defun compilation-find-file (marker filename dir &rest formats)
    "Find a buffer for file FILENAME.
--- 1645,1653 ----
                         (numberp next-error-highlight)))
                (delete-overlay compilation-highlight-overlay))))))
      (when (and (eq next-error-highlight 'fringe-arrow))
!       (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.