Mercurial > emacs
changeset 64256:f83907a4c795
(blink-cursor-mode): Revert to previous implementation of its defcustom.
Update.comment.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Tue, 12 Jul 2005 20:13:23 +0000 |
| parents | 76dcc947e7fc |
| children | 808b36b5395e |
| files | lisp/frame.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Tue Jul 12 20:11:35 2005 +0000 +++ b/lisp/frame.el Tue Jul 12 20:13:23 2005 +0000 @@ -1256,6 +1256,11 @@ 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. @@ -1266,10 +1271,9 @@ 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 - no-blinking-cursor + (if (boundp '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))