[Emacs-diffs] master 19f71dc: Have `compilation-set-window' use right window for getting fringes (Bug#20829)

[Martin Rudalics]

branch: master
commit 19f71dcdc47d9b1ee0a3982391f1a2332fbc765e
Author: Martin Rudalics <address@hidden>
Commit: Martin Rudalics <address@hidden>

    Have `compilation-set-window' use right window for getting fringes 
(Bug#20829)
    
    * lisp/progmodes/compile.el (compilation-set-window): Take
    `window-fringes' from argument window.  (Bug#20829)
---
 lisp/progmodes/compile.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 37d3fe8..9a44335 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -2521,9 +2521,9 @@ displays at the top of the window; there is no arrow."
                             (- 1 compilation-context-lines))
                            (point)))
     ;; If there is no left fringe.
-    (if (equal (car (window-fringes)) 0)
-       (set-window-start w (save-excursion
-                             (goto-char mk)
+    (when (equal (car (window-fringes w)) 0)
+      (set-window-start w (save-excursion
+                            (goto-char mk)
                            (beginning-of-line 1)
                            (point)))))
     (set-window-point w mk))