Mercurial > emacs
changeset 30016:d5706e135845
(command-line): Initialize blink-cursor based
on window-system.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 03 Jul 2000 19:14:12 +0000 |
| parents | 7ab1a3106972 |
| children | 768f0561dcdc |
| files | lisp/startup.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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