compilation-highlight-duration

[Tak Ota]

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  <address@hidden>
+ 
+       * progmodes/compile.el (compilation-highlight-duration): New
+       variable.
+       (compilation-goto-locus): Use it to `sit-for'.
+ 
  2004-04-30  Juri Linkov  <address@hidden>
  
        * cus-edit.el (custom-mode-map):