Mercurial > emacs
comparison lisp/frame.el @ 64298:acabc71be63b
(blink-cursor-mode): Use `custom-initialize-safe-default' and simplify
:init-value again.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Thu, 14 Jul 2005 00:59:34 +0000 |
| parents | f83907a4c795 |
| children | f1a7394cf1a7 fbb2bea03df9 |
comparison
equal
deleted
inserted
replaced
| 64297:12d6287fd482 | 64298:acabc71be63b |
|---|---|
| 1254 (defvar blink-cursor-timer nil | 1254 (defvar blink-cursor-timer nil |
| 1255 "Timer started from `blink-cursor-start'. | 1255 "Timer started from `blink-cursor-start'. |
| 1256 This timer calls `blink-cursor-timer-function' every | 1256 This timer calls `blink-cursor-timer-function' every |
| 1257 `blink-cursor-interval' seconds.") | 1257 `blink-cursor-interval' seconds.") |
| 1258 | 1258 |
| 1259 ;; At startup, some variables used to compute the standard value may | |
| 1260 ;; not yet be defined or may not yet have their correct value. Hence | |
| 1261 ;; the value computed by the defcustom at startup may be incorrect. | |
| 1262 ;; The correct value will be recomputed in startup.el using | |
| 1263 ;; `custom-reevaluate-setting' | |
| 1264 (define-minor-mode blink-cursor-mode | 1259 (define-minor-mode blink-cursor-mode |
| 1265 "Toggle blinking cursor mode. | 1260 "Toggle blinking cursor mode. |
| 1266 With a numeric argument, turn blinking cursor mode on iff ARG is positive. | 1261 With a numeric argument, turn blinking cursor mode on iff ARG is positive. |
| 1267 When blinking cursor mode is enabled, the cursor of the selected | 1262 When blinking cursor mode is enabled, the cursor of the selected |
| 1268 window blinks. | 1263 window blinks. |
| 1269 | 1264 |
| 1270 Note that this command is effective only when Emacs | 1265 Note that this command is effective only when Emacs |
| 1271 displays through a window system, because then Emacs does its own | 1266 displays through a window system, because then Emacs does its own |
| 1272 cursor display. On a text-only terminal, this is not implemented." | 1267 cursor display. On a text-only terminal, this is not implemented." |
| 1273 :init-value (not (or noninteractive | 1268 :init-value (not (or noninteractive |
| 1274 (if (boundp 'no-blinking-cursor) no-blinking-cursor) | 1269 no-blinking-cursor |
| 1275 (eq system-type 'ms-dos) | 1270 (eq system-type 'ms-dos) |
| 1276 (not (memq window-system '(x w32))))) | 1271 (not (memq window-system '(x w32))))) |
| 1272 :initialize 'custom-initialize-safe-default | |
| 1277 :group 'cursor | 1273 :group 'cursor |
| 1278 :global t | 1274 :global t |
| 1279 (if blink-cursor-idle-timer (cancel-timer blink-cursor-idle-timer)) | 1275 (if blink-cursor-idle-timer (cancel-timer blink-cursor-idle-timer)) |
| 1280 (if blink-cursor-timer (cancel-timer blink-cursor-timer)) | 1276 (if blink-cursor-timer (cancel-timer blink-cursor-timer)) |
| 1281 (setq blink-cursor-idle-timer nil | 1277 (setq blink-cursor-idle-timer nil |