# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 962651652 0
# Node ID d5706e1358450d8b0a8c4cca082bdc6519d0c3b7
# Parent  7ab1a31069728c85ca617dc0ca8f551dde7c3fec
(command-line): Initialize blink-cursor based
on window-system.

diff -r 7ab1a3106972 -r d5706e135845 lisp/startup.el
--- a/lisp/startup.el	Mon Jul 03 19:13:55 2000 +0000
+++ b/lisp/startup.el	Mon Jul 03 19:14:12 2000 +0000
@@ -647,6 +647,13 @@
 	       (> (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