[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el |
Date: |
Mon, 28 Mar 2005 23:56:44 -0500 |
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)