mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-20 04:50:55 -07:00
Code Issues Projects Releases Wiki Activity

(compilation-goto-locus):

Browse source 
Use `next-error-highlight-timer' instead of `sit-for'.
This commit is contained in:
Juri Linkov 2005-03-29 04:57:52 +00:00
parent 814c3037ec
commit 073fcaf68b
2 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2005-03-29 Juri Linkov <juri@jurta.org>
* 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 <monnier@iro.umontreal.ca>
* mail/supercite.el (sc-mail-field): Use assoc-string.

9
lisp/progmodes/compile.el
View file

@ -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)