[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.347 
emacs/lisp/progmodes/compile.el:1.348
*** emacs/lisp/progmodes/compile.el:1.347       Thu Mar  3 20:08:21 2005
--- emacs/lisp/progmodes/compile.el     Tue Mar 29 04:56:44 2005
***************
*** 1613,1618 ****
--- 1613,1620 ----
      (compilation-set-window-height w)
  
      (when highlight-regexp
+       (if (timerp next-error-highlight-timer)
+         (cancel-timer next-error-highlight-timer))
        (unless compilation-highlight-overlay
        (setq compilation-highlight-overlay
              (make-overlay (point-min) (point-min)))
***************
*** 1632,1639 ****
              (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)
--- 1634,1644 ----
              (move-overlay compilation-highlight-overlay
                            (point) end (current-buffer)))
            (if (numberp next-error-highlight)
!               (setq next-error-highlight-timer
!                     (run-at-time next-error-highlight nil 'delete-overlay
!                                  compilation-highlight-overlay)))
!           (if (not (or (eq next-error-highlight t)
!                        (numberp next-error-highlight)))
                (delete-overlay compilation-highlight-overlay))))))
      (when (and (eq next-error-highlight 'fringe-arrow))
        (set (make-local-variable 'overlay-arrow-position)