From 48778af49a0dc8d02f1c098e798e4a9bd291a255 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 7 May 2005 16:18:36 +0000 Subject: [PATCH] (compilation-setup): Set overlay-arrow-string to an empty string on text terminals. --- lisp/progmodes/compile.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 (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) -- 2.39.2