(command-line): Initialize blink-cursor based

on window-system.

2 files changed, 12 insertions, 0 deletions

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