1256 |
This timer calls `blink-cursor-timer-function' every |
This timer calls `blink-cursor-timer-function' every |
1257 |
`blink-cursor-interval' seconds.") |
`blink-cursor-interval' seconds.") |
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 |
(define-minor-mode blink-cursor-mode |
1265 |
"Toggle blinking cursor mode. |
"Toggle blinking cursor mode. |
1266 |
With a numeric argument, turn blinking cursor mode on iff ARG is positive. |
With a numeric argument, turn blinking cursor mode on iff ARG is positive. |
1271 |
displays through a window system, because then Emacs does its own |
displays through a window system, because then Emacs does its own |
1272 |
cursor display. On a text-only terminal, this is not implemented." |
cursor display. On a text-only terminal, this is not implemented." |
1273 |
:init-value (not (or noninteractive |
:init-value (not (or noninteractive |
1274 |
no-blinking-cursor |
(if (boundp 'no-blinking-cursor) no-blinking-cursor) |
1275 |
(eq system-type 'ms-dos) |
(eq system-type 'ms-dos) |
1276 |
(not (memq window-system '(x w32))))) |
(not (memq window-system '(x w32))))) |
|
:initialize 'custom-initialize-safe-default |
|
1277 |
:group 'cursor |
:group 'cursor |
1278 |
:global t |
:global t |
1279 |
(if blink-cursor-idle-timer (cancel-timer blink-cursor-idle-timer)) |
(if blink-cursor-idle-timer (cancel-timer blink-cursor-idle-timer)) |