[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.323 
emacs/lisp/progmodes/compile.el:1.324
*** emacs/lisp/progmodes/compile.el:1.323       Mon Aug 16 22:44:56 2004
--- emacs/lisp/progmodes/compile.el     Wed Sep  1 18:44:35 2004
***************
*** 1564,1570 ****
        (unless compilation-highlight-overlay
        (setq compilation-highlight-overlay
              (make-overlay (point-min) (point-min)))
!       (overlay-put compilation-highlight-overlay 'face 'region))
        (with-current-buffer (marker-buffer mk)
        (save-excursion
          (end-of-line)
--- 1564,1570 ----
        (unless compilation-highlight-overlay
        (setq compilation-highlight-overlay
              (make-overlay (point-min) (point-min)))
!       (overlay-put compilation-highlight-overlay 'face 'next-error))
        (with-current-buffer (marker-buffer mk)
        (save-excursion
          (end-of-line)
***************
*** 1574,1584 ****
                     (re-search-forward highlight-regexp end t))
                (progn
                  (goto-char (match-beginning 0))
!                 (move-overlay compilation-highlight-overlay (match-beginning 
0) (match-end 0)))
!             (move-overlay compilation-highlight-overlay (point) end))
!           (sit-for 0.5)
!           (delete-overlay compilation-highlight-overlay)))))))
! 
  
  (defun compilation-find-file (marker filename dir &rest formats)
    "Find a buffer for file FILENAME.
--- 1574,1591 ----
                     (re-search-forward highlight-regexp end t))
                (progn
                  (goto-char (match-beginning 0))
!                 (move-overlay compilation-highlight-overlay
!                               (match-beginning 0) (match-end 0)
!                               (current-buffer)))
!             (move-overlay compilation-highlight-overlay
!                           (point) end (current-buffer)))
!           (if (numberp next-error-highlight)
!               (sit-for next-error-highlight))
!           (if (not (eq next-error-highlight t))
!               (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.