Mercurial > emacs
changeset 62158:70963b3d0aa7
(compilation-setup): Set overlay-arrow-string to an empty string
on text terminals.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 07 May 2005 16:18:36 +0000 |
| parents | 9e2e9dd39743 |
| children | 4eae2f90f2a9 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Sat May 07 16:06:07 2005 +0000 +++ b/lisp/progmodes/compile.el Sat May 07 16:18:36 2005 +0000 @@ -1247,7 +1247,8 @@ (make-local-variable 'compilation-messages-start) (make-local-variable 'compilation-error-screen-columns) (make-local-variable 'overlay-arrow-position) - (set (make-local-variable 'overlay-arrow-string) "=>") + (set (make-local-variable 'overlay-arrow-string) + (if (display-graphic-p) "=>" "")) (setq next-error-overlay-arrow-position nil) (add-hook 'kill-buffer-hook (lambda () (setq next-error-overlay-arrow-position nil)) nil t)