(compilation-setup): Set overlay-arrow-string to an empty string

on text terminals.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 0cc70386be8ee0cbedbc839f2d0a2c053cf3c40a..f5180b1fb4824d42658db05b1e11b79f6c45caed 100644 (file)
--- 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)