# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1083252698 0
# Node ID 193a4c33253622bfd575e4fc6870b8fdc4e8aa16
# Parent  e3dae0e8c99e5a1f695c1c5176b3cb2c62cf32ca
(compilation-context-lines): Add nil option to disable compilation output window scrolling.
(compilation-set-window): Use it.

diff -r e3dae0e8c99e -r 193a4c332536 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Thu Apr 29 15:28:55 2004 +0000
+++ b/lisp/progmodes/compile.el	Thu Apr 29 15:31:38 2004 +0000
@@ -1473,17 +1473,19 @@
     loc))
 
 (defcustom compilation-context-lines 0
-  "*Display this many lines of leading context before message."
-  :type 'integer
+  "*Display this many lines of leading context before message.
+If nil, don't scroll the compilation output window."
+  :type '(choice integer (const :tag "No window scrolling" nil))
   :group 'compilation
   :version "21.4")
 
 (defsubst compilation-set-window (w mk)
   "Align the compilation output window W with marker MK near top."
-  (set-window-start w (save-excursion
-			(goto-char mk)
-			(beginning-of-line (- 1 compilation-context-lines))
-			(point)))
+  (if (integerp compilation-context-lines)
+      (set-window-start w (save-excursion
+                            (goto-char mk)
+                            (beginning-of-line (- 1 compilation-context-lines))
+                            (point))))
   (set-window-point w mk))
 
 (defun compilation-goto-locus (msg mk end-mk)