# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 962651635 0
# Node ID 7ab1a31069728c85ca617dc0ca8f551dde7c3fec
# Parent  64db37e7b813a23e3f082d5f39fc5c3f7aec1a12
(blink-cursor-mode): Don't hide cursor initially.

diff -r 64db37e7b813 -r 7ab1a3106972 lisp/frame.el
--- a/lisp/frame.el	Mon Jul 03 16:01:31 2000 +0000
+++ b/lisp/frame.el	Mon Jul 03 19:13:55 2000 +0000
@@ -1064,7 +1064,7 @@
     (if on-p
 	(progn
 	  ;; Hide the cursor.
-	  (internal-show-cursor nil nil)
+	  ;(internal-show-cursor nil nil)
 	  (setq blink-cursor-idle-timer
 		(run-with-idle-timer blink-cursor-delay
 				     blink-cursor-delay
@@ -1072,12 +1072,14 @@
 	  (setq blink-cursor-mode t))
       (internal-show-cursor nil t))))
 
-(defcustom blink-cursor (unless (eq system-type 'ms-dos)
-			  window-system)
+;; Note that this is really initialized from startup.el before
+;; the init-file is read.
+
+(defcustom blink-cursor nil
   "*Non-nil means blinking cursor mode is active."
+  :group 'cursor
   :tag "Blinking cursor"
   :type 'boolean
-  :group 'cursor
   :set #'(lambda (symbol value)
 	   (set-default symbol value)
 	   (blink-cursor-mode (or value 0))))