diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/compile.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 0cc70386be8..f5180b1fb48 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -1247,7 +1247,8 @@ Optional argument MINOR indicates this is called from | |||
| 1247 | (make-local-variable 'compilation-messages-start) | 1247 | (make-local-variable 'compilation-messages-start) |
| 1248 | (make-local-variable 'compilation-error-screen-columns) | 1248 | (make-local-variable 'compilation-error-screen-columns) |
| 1249 | (make-local-variable 'overlay-arrow-position) | 1249 | (make-local-variable 'overlay-arrow-position) |
| 1250 | (set (make-local-variable 'overlay-arrow-string) "=>") | 1250 | (set (make-local-variable 'overlay-arrow-string) |
| 1251 | (if (display-graphic-p) "=>" "")) | ||
| 1251 | (setq next-error-overlay-arrow-position nil) | 1252 | (setq next-error-overlay-arrow-position nil) |
| 1252 | (add-hook 'kill-buffer-hook | 1253 | (add-hook 'kill-buffer-hook |
| 1253 | (lambda () (setq next-error-overlay-arrow-position nil)) nil t) | 1254 | (lambda () (setq next-error-overlay-arrow-position nil)) nil t) |