(blink-cursor): Default to nil if not running under

a window-system.

2 files changed, 5 insertions, 1 deletions

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