From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 7 May 2005 16:18:36 +0000 (+0000)
Subject: (compilation-setup): Set overlay-arrow-string to an empty string
X-Git-Tag: ttn-vms-21-2-B4~459
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=48778af49a0dc8d02f1c098e798e4a9bd291a255;p=emacs.git

(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 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)