diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-07-14 00:59:34 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-07-14 00:59:34 +0000 |
| commit | 947d4ae822fd0925fc029317860825f54b50fb2b (patch) | |
| tree | 56ab9047cec5deb23dea79e33709c754a3da69f7 /lisp/frame.el | |
| parent | dc86f0a908c5ac28453ad829c3f33cf785179321 (diff) | |
| download | emacs-947d4ae822fd0925fc029317860825f54b50fb2b.tar.gz | |
(blink-cursor-mode): Use `custom-initialize-safe-default' and simplify
:init-value again.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 89e0803b48f..5496c857af0 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1256,11 +1256,6 @@ The function `blink-cursor-start' is called when the timer fires.") This timer calls `blink-cursor-timer-function' every `blink-cursor-interval' seconds.") -;; At startup, some variables used to compute the standard value may -;; not yet be defined or may not yet have their correct value. Hence -;; the value computed by the defcustom at startup may be incorrect. -;; The correct value will be recomputed in startup.el using -;; `custom-reevaluate-setting' (define-minor-mode blink-cursor-mode "Toggle blinking cursor mode. With a numeric argument, turn blinking cursor mode on iff ARG is positive. @@ -1271,9 +1266,10 @@ Note that this command is effective only when Emacs displays through a window system, because then Emacs does its own cursor display. On a text-only terminal, this is not implemented." :init-value (not (or noninteractive - (if (boundp 'no-blinking-cursor) no-blinking-cursor) + no-blinking-cursor (eq system-type 'ms-dos) (not (memq window-system '(x w32))))) + :initialize 'custom-initialize-safe-default :group 'cursor :global t (if blink-cursor-idle-timer (cancel-timer blink-cursor-idle-timer)) |