diff options
| author | Eli Zaretskii | 2005-05-07 16:18:36 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2005-05-07 16:18:36 +0000 |
| commit | 48778af49a0dc8d02f1c098e798e4a9bd291a255 (patch) | |
| tree | 9e8a885d99618bb019b1e3a3ab94faab00e0d6a1 | |
| parent | 55b958f07b648fb9b6eb2faaa39a1a566908e4a0 (diff) | |
| download | emacs-48778af49a0dc8d02f1c098e798e4a9bd291a255.tar.gz emacs-48778af49a0dc8d02f1c098e798e4a9bd291a255.zip | |
(compilation-setup): Set overlay-arrow-string to an empty string
on text terminals.
| -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) |