From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 3 Jul 2000 16:01:31 +0000 (+0000)
Subject: (blink-cursor): Default to nil if not running under
X-Git-Tag: emacs-pretest-21.0.90~3005
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4f98ad3c65b83a8d49ec2f9c2657758fcb250a6;p=emacs.git

(blink-cursor): Default to nil if not running under
a window-system.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2efa91c95a1..8066815152a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-07-03  Gerd Moellmann  <gerd@gnu.org>
 
+	* frame.el (blink-cursor): Default to nil if not running under
+	a window-system.
+
 	* faces.el (face-spec-set): Ignore invalid attributes like 20.x.
 	(face-x-resources): Remove duplicate entry for :font.
 
diff --git a/lisp/frame.el b/lisp/frame.el
index e3925d2c6ca..03b9bc6e65e 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1072,7 +1072,8 @@ window blinks."
 	  (setq blink-cursor-mode t))
       (internal-show-cursor nil t))))
 
-(defcustom blink-cursor (not (eq system-type 'ms-dos))
+(defcustom blink-cursor (unless (eq system-type 'ms-dos)
+			  window-system)
   "*Non-nil means blinking cursor mode is active."
   :tag "Blinking cursor"
   :type 'boolean