diff options
| author | Martin Rudalics | 2015-07-04 10:13:22 +0200 |
|---|---|---|
| committer | Martin Rudalics | 2015-07-04 10:13:22 +0200 |
| commit | 19f71dcdc47d9b1ee0a3982391f1a2332fbc765e (patch) | |
| tree | efac74ae6564a7d2afcd88e033b53ca5fa13ce40 | |
| parent | fc4151f285ffb6939ada39d342b885eb5f23543d (diff) | |
| download | emacs-19f71dcdc47d9b1ee0a3982391f1a2332fbc765e.tar.gz emacs-19f71dcdc47d9b1ee0a3982391f1a2332fbc765e.zip | |
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)
| -rw-r--r-- | 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 37d3fe84114..9a4433595ef 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." | |||
| 2521 | (- 1 compilation-context-lines)) | 2521 | (- 1 compilation-context-lines)) |
| 2522 | (point))) | 2522 | (point))) |
| 2523 | ;; If there is no left fringe. | 2523 | ;; If there is no left fringe. |
| 2524 | (if (equal (car (window-fringes)) 0) | 2524 | (when (equal (car (window-fringes w)) 0) |
| 2525 | (set-window-start w (save-excursion | 2525 | (set-window-start w (save-excursion |
| 2526 | (goto-char mk) | 2526 | (goto-char mk) |
| 2527 | (beginning-of-line 1) | 2527 | (beginning-of-line 1) |
| 2528 | (point))))) | 2528 | (point))))) |
| 2529 | (set-window-point w mk)) | 2529 | (set-window-point w mk)) |