# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 918551674 0
# Node ID b563359187fd3df26b0b44936058c5a5298045e3
# Parent  dcf83a3ec7004d995ed05bbd7a27343715abfe9e
(compile-auto-highlight): Customize.

diff -r dcf83a3ec700 -r b563359187fd lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Tue Feb 09 09:03:05 1999 +0000
+++ b/lisp/progmodes/compile.el	Tue Feb 09 09:14:34 1999 +0000
@@ -49,7 +49,7 @@
 		 integer)
   :group 'compilation)
 
-(defvar compile-auto-highlight nil
+(defcustom compile-auto-highlight nil
   "*Specify how many compiler errors to highlight (and parse) initially.
 \(Highlighting applies to an error message when the mouse is over it.)
 If this is a number N, all compiler error messages in the first N lines
@@ -59,7 +59,11 @@
 move to the error messages.
 
 Those messages which are not parsed and highlighted initially
-will be parsed and highlighted as soon as you try to move to them.")
+will be parsed and highlighted as soon as you try to move to them."
+  :type '(choice (const :tag "All" t)
+		 (const :tag "None" nil)
+		 (integer :tag "First N lines"))
+  :group 'compilation)
 
 (defvar compilation-error-list nil
   "List of error message descriptors for visiting erring functions.