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

a window-system.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2efa91c95a154a5267e48dd7049ff0d98094b2d2..8066815152a37a81f5e872b50ace9e8076c870aa 100644 (file)
--- 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 e3925d2c6cafe9a2568ead3e8382bf38a126bc71..03b9bc6e65e3eb4a0ce26b70916db88eb6c66dd6 100644 (file)
--- 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