diff options
| -rw-r--r-- | lisp/progmodes/compile.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index f0b34c702ca..d80fef3103e 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -2625,7 +2625,10 @@ Actual value is never used, only the text property.") | |||
| 2625 | (make-overlay overlay-arrow-position overlay-arrow-position)) | 2625 | (make-overlay overlay-arrow-position overlay-arrow-position)) |
| 2626 | (overlay-put compilation-arrow-overlay | 2626 | (overlay-put compilation-arrow-overlay |
| 2627 | 'before-string compilation--dummy-string) | 2627 | 'before-string compilation--dummy-string) |
| 2628 | (set-window-margins (selected-window) (+ (or (car (window-margins)) 0) 2))) | 2628 | (set-window-margins (selected-window) (+ (or (car (window-margins)) 0) 2)) |
| 2629 | ;; Take precautions against `compilation-mode' getting reinitialized. | ||
| 2630 | (add-hook 'change-major-mode-hook | ||
| 2631 | 'compilation-tear-down-arrow-spec-in-margin nil t)) | ||
| 2629 | 2632 | ||
| 2630 | (defun compilation-tear-down-arrow-spec-in-margin () | 2633 | (defun compilation-tear-down-arrow-spec-in-margin () |
| 2631 | "Restore compilation-arrow-overlay to not using the margin, which is removed." | 2634 | "Restore compilation-arrow-overlay to not using the margin, which is removed." |