procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(command-line): Initialize blink-cursor based

Browse source 
on window-system.
This commit is contained in:
Gerd Moellmann 2000-07-03 19:14:39 +00:00
parent cae2c28eee
commit 6753393b26
2 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

7
lisp/startup.el
View file

@ -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