mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(command-line): Adapt blinking cursor init to changes in frame.el.

Browse Source
This commit is contained in:
Luc Teirlinck 2005-02-12 18:00:53 +00:00
parent a795e09a78
commit 3413f9285c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/startup.el
View File

@ -735,12 +735,14 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(<= (frame-parameter nil 'tool-bar-lines) 0))
(tool-bar-mode 1))
;; Can't do this init in defcustom because window-system isn't set.
;; Can't do this init in defcustom because the relevant variables
;; are not set. If you make any changes to the `or' form below,
;; you should also change the corresponding expression in the
;; defcustom in frame.el, or Custom will be badly confused.
(unless (or noninteractive
emacs-quick-startup
(eq system-type 'ms-dos)
(not (memq window-system '(x w32))))
(setq-default blink-cursor t)
(blink-cursor-mode 1))
(unless noninteractive