(command-line): Initialize blink-cursor based

on window-system.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8066815152a37a81f5e872b50ace9e8076c870aa..2742992a4fc71c61d02073d1523c2b4c56cf4566 100644 (file)
--- 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 a51fd018c6449237938c523e0bf14ae3270749cf..42a7dcffbcb0c31d69232118c8269d69b1c9ac84 100644 (file)
--- 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