[Emacs-diffs] /srv/bzr/emacs/trunk r107038: Copy 2012-01-25 compilation-next-error-function change to another function.

[Glenn Morris]

------------------------------------------------------------
revno: 107038
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2012-01-31 23:32:21 -0800
message:
  Copy 2012-01-25 compilation-next-error-function change to another function.
  
  * lisp/progmodes/compile.el (compilation-internal-error-properties):
  Respect compilation-first-column in the "*compilation*" buffer.
modified:
  lisp/ChangeLog
  lisp/progmodes/compile.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-02-01 02:17:17 +0000
+++ b/lisp/ChangeLog    2012-02-01 07:32:21 +0000
@@ -1,5 +1,8 @@
 2012-02-01  Glenn Morris  <address@hidden>
 
+       * progmodes/compile.el (compilation-internal-error-properties):
+       Respect compilation-first-column in the "*compilation*" buffer.
+
        * emacs-lisp/easy-mmode.el (define-minor-mode):
        Relax :variable's test for a named function.
 

=== modified file 'lisp/progmodes/compile.el'
--- a/lisp/progmodes/compile.el 2012-01-25 02:01:22 +0000
+++ b/lisp/progmodes/compile.el 2012-02-01 07:32:21 +0000
@@ -1058,6 +1058,7 @@
         (marker
           (if marker-line (compilation--loc->marker (cadr marker-line))))
         (screen-columns compilation-error-screen-columns)
+        (first-column compilation-first-column)
         end-marker loc end-loc)
     (if (not (and marker (marker-buffer marker)))
        (setq marker nil)               ; no valid marker for this file
@@ -1078,7 +1079,10 @@
                ;; Obey the compilation-error-screen-columns of the target
                ;; buffer if its major mode set it buffer-locally.
                (if (local-variable-p 'compilation-error-screen-columns)
-                   compilation-error-screen-columns screen-columns)))
+                   compilation-error-screen-columns screen-columns))
+             (compilation-first-column
+               (if (local-variable-p 'compilation-first-column)
+                   compilation-first-column first-column)))
           (save-excursion
          (save-restriction
            (widen)