From: Karl Heuer Date: Sun, 27 Jun 1999 21:43:52 +0000 (+0000) Subject: Deal with compilation-error-screen-columns being buffer-local. X-Git-Tag: emacs-20.4~55 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=47d1bc29bb52bdb9497a63753d99044107764b12;p=emacs.git Deal with compilation-error-screen-columns being buffer-local. --- diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 7b53d6ed480..2b8bcdb9432 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1521,10 +1521,12 @@ The current buffer should be the desired compilation output buffer." ;; 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 @@ The current buffer should be the desired compilation output buffer." (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 @@ The current buffer should be the desired compilation output buffer." 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))