compilation-highlight-duration

[Tak Ota <Takaaki.Ota@am.sony.com>]

New compile.el is very nice and I particularly like the highlight
feature.  However, the hard coded duration of 0.5 second could be too
short or too long depending on the clock speed of the users' brain.
May I suggest making it configurable?

-Tak

*** ../../pure/emacs-21.3.50/lisp/progmodes/compile.el	Thu Apr 29 21:09:13 2004
--- progmodes/compile.el	Fri Apr 30 22:10:51 2004
***************
*** 370,375 ****
--- 370,379 ----
  (defvar compilation-highlight-overlay nil
    "Overlay used to temporarily highlight compilation matches.")
  
+ (defvar compilation-highlight-duration 0.5
+   "Duration in seconds for highlighting temporarily.
+ Highlighting continues for the specified time in seconds or until input is available.")
+ 
  (defcustom compilation-error-screen-columns t
    "*If non-nil, column numbers in error messages are screen columns.
  Otherwise they are interpreted as character positions, with
***************
*** 1545,1551 ****
  		  (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)))))))
  
--- 1549,1555 ----
  		  (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 compilation-highlight-duration)
  	    (delete-overlay compilation-highlight-overlay)))))))
  

*** ../../pure/emacs-21.3.50/lisp/ChangeLog	Fri Apr 30 21:20:12 2004
--- ChangeLog	Fri Apr 30 22:21:23 2004
***************
*** 1,3 ****
--- 1,9 ----
+ 2004-04-30  Takaaki Ota  <Takaaki.Ota@am.sony.com>
+ 
+ 	* progmodes/compile.el (compilation-highlight-duration): New
+ 	variable.
+ 	(compilation-goto-locus): Use it to `sit-for'.
+ 
  2004-04-30  Juri Linkov  <juri@jurta.org>
  
  	* cus-edit.el (custom-mode-map):