1253 |
|
|
1254 |
(defvar blink-cursor-timer nil |
(defvar blink-cursor-timer nil |
1255 |
"Timer started from `blink-cursor-start'. |
"Timer started from `blink-cursor-start'. |
1256 |
This timer calls `blink-cursor' every `blink-cursor-interval' seconds.") |
This timer calls `blink-cursor-timer-function' every |
1257 |
|
`blink-cursor-interval' seconds.") |
1258 |
|
|
1259 |
(defvar blink-cursor-mode nil |
;; The strange sequence below is meant to set both the right temporary |
1260 |
"Non-nil means blinking cursor is active.") |
;; value and the right "standard expression" , according to Custom, |
1261 |
|
;; for blink-cursor-mode. We do not know the standard _evaluated_ |
1262 |
|
;; value yet, because the standard expression uses values that are not |
1263 |
|
;; yet set. Evaluating it now would yield an error, but we make sure |
1264 |
|
;; that it is not evaluated, by ensuring that blink-cursor-mode is set |
1265 |
|
;; before the defcustom is evaluated and by using the right :initialize |
1266 |
|
;; function. The correct evaluated standard value will be installed |
1267 |
|
;; in startup.el using exactly the same expression as in the defcustom. |
1268 |
|
(defvar blink-cursor-mode) |
1269 |
|
(unless (boundp 'blink-cursor-mode) (setq blink-cursor-mode nil)) |
1270 |
|
(defcustom blink-cursor-mode |
1271 |
|
(not (or noninteractive |
1272 |
|
emacs-quick-startup |
1273 |
|
(eq system-type 'ms-dos) |
1274 |
|
(not (memq window-system '(x w32))))) |
1275 |
|
"*Non-nil means Blinking Cursor mode is active." |
1276 |
|
:group 'cursor |
1277 |
|
:tag "Blinking cursor" |
1278 |
|
:type 'boolean |
1279 |
|
:initialize 'custom-initialize-set |
1280 |
|
:set #'(lambda (symbol value) |
1281 |
|
(set-default symbol value) |
1282 |
|
(blink-cursor-mode (or value 0)))) |
1283 |
|
|
1284 |
|
(defvaralias 'blink-cursor 'blink-cursor-mode) |
1285 |
|
(make-obsolete-variable 'blink-cursor 'blink-cursor-mode "22.1") |
1286 |
|
|
1287 |
(defun blink-cursor-mode (arg) |
(defun blink-cursor-mode (arg) |
1288 |
"Toggle blinking cursor mode. |
"Toggle blinking cursor mode. |
1315 |
(setq blink-cursor-mode t)) |
(setq blink-cursor-mode t)) |
1316 |
(internal-show-cursor nil t)))) |
(internal-show-cursor nil t)))) |
1317 |
|
|
|
;; Note that this is really initialized from startup.el before |
|
|
;; the init-file is read. |
|
|
|
|
|
(defcustom blink-cursor nil |
|
|
"*Non-nil means blinking cursor mode is active." |
|
|
:group 'cursor |
|
|
:tag "Blinking cursor" |
|
|
:type 'boolean |
|
|
:set #'(lambda (symbol value) |
|
|
(set-default symbol value) |
|
|
(blink-cursor-mode (or value 0)))) |
|
|
|
|
1318 |
(defun blink-cursor-start () |
(defun blink-cursor-start () |
1319 |
"Timer function called from the timer `blink-cursor-idle-timer'. |
"Timer function called from the timer `blink-cursor-idle-timer'. |
1320 |
This starts the timer `blink-cursor-timer', which makes the cursor blink |
This starts the timer `blink-cursor-timer', which makes the cursor blink |