# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 930519832 0
# Node ID dcb1db1b1105a5409f1f8575be3eade4faad0821
# Parent  c74f4b5eb6574c63ca8df35006f8ee46b044b1e9
Deal with compilation-error-screen-columns being buffer-local.

diff -r c74f4b5eb657 -r dcb1db1b1105 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sun Jun 27 21:39:42 1999 +0000
+++ b/lisp/progmodes/compile.el	Sun Jun 27 21:43:52 1999 +0000
@@ -1521,10 +1521,12 @@
 			    ;; Look for the next error.
 			    t)
 			;; We found the file.  Get a marker for this error.
-			;; compilation-old-error-list is a buffer-local
-			;; variable, so we must be careful to extract its value
+			;; compilation-old-error-list and
+			;; compilation-error-screen-columns are buffer-local
+			;; so we must be careful to extract their value
 			;; before switching to the source file buffer.
 			(let ((errors compilation-old-error-list)
+			      (columns compilation-error-screen-columns)
 			      (last-line (nth 1 (cdr next-error)))
 			      (column (nth 2 (cdr next-error))))
 			  (set-buffer buffer)
@@ -1534,7 +1536,7 @@
 			      (goto-line last-line)
 			      (if (and column (> column 0))
 				  ;; Columns in error msgs are 1-origin.
-				  (if compilation-error-screen-columns
+				  (if columns
 				      (move-to-column (1- column))
 				    (forward-char (1- column)))
 				(beginning-of-line))
@@ -1560,7 +1562,7 @@
 								lines))
 					 (forward-line lines))
 				       (if (and column (> column 1))
-					   (if compilation-error-screen-columns
+					   (if columns
 					       (move-to-column (1- column))
 					     (forward-char (1- column)))
 					 (beginning-of-line))