diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-07-03 19:14:39 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-07-03 19:14:39 +0000 |
| commit | 6753393b266d6cfd4f26e0beab026d5448754be5 (patch) | |
| tree | 133ffe35c128e6255e984fb06e837e3183f096fc | |
| parent | cae2c28eeed2f90efc3fdd125b6e1d7a830b4ce1 (diff) | |
| download | emacs-6753393b266d6cfd4f26e0beab026d5448754be5.tar.gz | |
(command-line): Initialize blink-cursor based
on window-system.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/startup.el | 7 |
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 |