Mercurial > emacs
changeset 64201:43f2b7f50a25
(blink-cursor-mode): Use `custom-initialize-safe-default' and simplify
:init-value.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Sun, 10 Jul 2005 16:36:04 +0000 |
| parents | 25277c60733f |
| children | 32225b9cc7d5 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 2 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Sun Jul 10 16:32:59 2005 +0000 +++ b/lisp/frame.el Sun Jul 10 16:36:04 2005 +0000 @@ -1256,10 +1256,6 @@ This timer calls `blink-cursor-timer-function' every `blink-cursor-interval' seconds.") -;; We do not know the standard _evaluated_ value yet, because the standard -;; expression uses values that are not yet set. The correct evaluated -;; standard value will be installed in startup.el using exactly the same -;; expression as in the defcustom. (define-minor-mode blink-cursor-mode "Toggle blinking cursor mode. With a numeric argument, turn blinking cursor mode on iff ARG is positive. @@ -1270,9 +1266,10 @@ 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))