From: Juri Linkov Date: Tue, 29 Mar 2005 04:57:52 +0000 (+0000) Subject: (compilation-goto-locus): X-Git-Tag: ttn-vms-21-2-B4~1410 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=073fcaf68bd794174f3f9de585185fa23cc87485;p=emacs.git (compilation-goto-locus): Use `next-error-highlight-timer' instead of `sit-for'. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 95ab41b8a86..eea97f40a95 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2005-03-29 Juri Linkov + + * simple.el (next-error-highlight-timer): New variable. + + * progmodes/compile.el (compilation-goto-locus): + Use `next-error-highlight-timer' instead of `sit-for'. + 2005-03-28 Stefan Monnier * mail/supercite.el (sc-mail-field): Use assoc-string. diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 457177d7c4c..bafc901d3d1 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1613,6 +1613,8 @@ and overlay is highlighted between MK and END-MK." (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,8 +1634,11 @@ and overlay is highlighted between MK and END-MK." (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)) + (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)