Mercurial > emacs

changeset 30015:7ab1a3106972

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(blink-cursor-mode): Don't hide cursor initially.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 03 Jul 2000 19:13:55 +0000
parents 64db37e7b813
children d5706e135845
files lisp/frame.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))))