# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 847219350 0
# Node ID b96e566800382b05eae996dda1749390989a8a0b
# Parent  851101d4ba84349c3f8619def937de2d63d6436b
(compile-auto-highlight): Renamed from
compile-highlight-display-limit.

diff -r 851101d4ba84 -r b96e56680038 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Tue Nov 05 18:27:52 1996 +0000
+++ b/lisp/progmodes/compile.el	Tue Nov 05 18:42:30 1996 +0000
@@ -38,15 +38,16 @@
 (defvar compilation-window-height nil
   "*Number of lines in a compilation window.  If nil, use Emacs default.")
 
-(defvar compile-highlight-display-limit nil
+(defvar compile-auto-highlight nil
   "*Specify how many compiler errors to highlight (and parse) initially.
+\(Highlighting applies to ean error message when the mouse is over it.)
 If this is a number N, all compiler error messages in the first N lines
 are highlighted and parsed as soon as they arrive in Emacs.
-If t, highlight and parse the whole compilation buffer as soon as possible.
+If t, highlight and parse the whole compilation output as soon as it arrives.
 If nil, don't highlight or parse any of the buffer until you try to
 move to the error messages.
 
-Those which are not parsed and highlighted initially
+Those messages which are not parsed and highlighted initially
 will be parsed and highlighted as soon as you try to move to them.")
 
 (defvar compilation-error-list nil
@@ -629,14 +630,14 @@
     (force-mode-line-update)
     (if (and opoint (< opoint omax))
 	(goto-char opoint))
-    ;; Automatically parse (and highlight) error messages:
-    (cond ((eq compile-highlight-display-limit t)
+    ;; Automatically parse (and mouse-highlight) error messages:
+    (cond ((eq compile-auto-highlight t)
 	   (compile-reinitialize-errors nil (point-max)))
-	  ((numberp compile-highlight-display-limit)
-	   (compile-reinitialize-errors nil (save-excursion
-					      (goto-line
-					       compile-highlight-display-limit)
-					      (point)))))
+	  ((numberp compile-auto-highlight)
+	   (compile-reinitialize-errors nil
+					(save-excursion
+					  (goto-line compile-auto-highlight)
+					  (point)))))
     (if compilation-finish-function
 	(funcall compilation-finish-function (current-buffer) msg))
     (let ((functions compilation-finish-functions))
@@ -866,7 +867,7 @@
 		;; We started in the middle of an existing list of parsed
 		;; errors before parsing more; restore that position.
 		(setq compilation-error-list error-list-pos))
-	    ;; Highlight (the first line of) each error message when the
+	    ;; Mouse-Highlight (the first line of) each error message when the
 	    ;; mouse pointer moves over it:
 	    (let ((inhibit-read-only t)
 		  (error-list compilation-error-list))