# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 962640033 0
# Node ID 10ee2ede881c78bac59d8f5e87be80b332d1f95b
# Parent  c4958e8c427fdcbbf0ae3cd8dccbe097326e6517
(blink-cursor): Default to nil if not running under
a window-system.

diff -r c4958e8c427f -r 10ee2ede881c lisp/frame.el
--- a/lisp/frame.el	Mon Jul 03 13:49:08 2000 +0000
+++ b/lisp/frame.el	Mon Jul 03 16:00:33 2000 +0000
@@ -1072,7 +1072,8 @@
 	  (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