From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 3 Jul 2000 19:14:39 +0000 (+0000)
Subject: (command-line): Initialize blink-cursor based
X-Git-Tag: emacs-pretest-21.0.90~3003
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6753393b266d6cfd4f26e0beab026d5448754be5;p=emacs.git

(command-line): Initialize blink-cursor based
on window-system.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8066815152a..2742992a4fc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2000-07-03  Gerd Moellmann  <gerd@gnu.org>
 
+	* frame.el (blink-cursor-mode): Don't hide cursor initially.
+
+	* startup.el (command-line): Initialize blink-cursor based
+	on window-system.
+
 	* frame.el (blink-cursor): Default to nil if not running under
 	a window-system.
 
diff --git a/lisp/startup.el b/lisp/startup.el
index a51fd018c64..42a7dcffbcb 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -647,6 +647,13 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
 	       (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0)))
       (menu-bar-mode t))
 
+  ;; Can't do this init in defcustom because window-system isn't set.
+  (when (and (not noninteractive)
+	     (not (eq system-type 'ms-dos))
+	     (memq window-system '(x w32)))
+    (setq-default blink-cursor t)
+    (blink-cursor-mode 1))
+
   (run-hooks 'before-init-hook)
 
   ;; Run the site-start library if it exists.  The point of this file is