Lines Matching defs:cursor
910 (defun set-cursor-color (color-name)
911 "Set the text cursor color of the selected frame to COLOR-NAME.
913 To get the frame's current cursor color, use `frame-parameters'."
916 (list (cons 'cursor-color color-name))))
1264 ;; Blinking cursor
1266 (defgroup cursor nil
1271 (defcustom blink-cursor-delay 0.5
1272 "*Seconds of idle time after which cursor starts to blink."
1274 :group 'cursor)
1276 (defcustom blink-cursor-interval 0.5
1277 "*Length of cursor blink interval in seconds."
1279 :group 'cursor)
1281 (defvar blink-cursor-idle-timer nil
1282 "Timer started after `blink-cursor-delay' seconds of Emacs idle time.
1283 The function `blink-cursor-start' is called when the timer fires.")
1285 (defvar blink-cursor-timer nil
1286 "Timer started from `blink-cursor-start'.
1287 This timer calls `blink-cursor-timer-function' every
1288 `blink-cursor-interval' seconds.")
1290 (defun blink-cursor-start ()
1291 "Timer function called from the timer `blink-cursor-idle-timer'.
1292 This starts the timer `blink-cursor-timer', which makes the cursor blink
1295 (when (null blink-cursor-timer)
1297 ;; blink-cursor-end is not added to pre-command-hook.
1298 (setq blink-cursor-timer
1299 (run-with-timer blink-cursor-interval blink-cursor-interval
1300 'blink-cursor-timer-function))
1301 (add-hook 'pre-command-hook 'blink-cursor-end)
1302 (internal-show-cursor nil nil)))
1304 (defun blink-cursor-timer-function ()
1305 "Timer function of timer `blink-cursor-timer'."
1306 (internal-show-cursor nil (not (internal-show-cursor-p))))
1308 (defun blink-cursor-end ()
1309 "Stop cursor blinking.
1310 This is installed as a pre-command hook by `blink-cursor-start'.
1311 When run, it cancels the timer `blink-cursor-timer' and removes
1313 (remove-hook 'pre-command-hook 'blink-cursor-end)
1314 (internal-show-cursor nil t)
1315 (when blink-cursor-timer
1316 (cancel-timer blink-cursor-timer)
1317 (setq blink-cursor-timer nil)))
1319 (define-minor-mode blink-cursor-mode
1320 "Toggle blinking cursor mode.
1321 With a numeric argument, turn blinking cursor mode on iff ARG is positive.
1322 When blinking cursor mode is enabled, the cursor of the selected
1327 cursor display. On a text-only terminal, this is not implemented."
1329 no-blinking-cursor
1333 :group 'cursor
1335 (if blink-cursor-idle-timer (cancel-timer blink-cursor-idle-timer))
1336 (setq blink-cursor-idle-timer nil)
1337 (blink-cursor-end)
1338 (when blink-cursor-mode
1339 ;; Hide the cursor.
1340 ;;(internal-show-cursor nil nil)
1341 (setq blink-cursor-idle-timer
1342 (run-with-idle-timer blink-cursor-delay
1343 blink-cursor-delay
1344 'blink-cursor-start))))
1346 (define-obsolete-variable-alias 'blink-cursor 'blink-cursor-mode "22.1")
1354 cursor shapes."
1356 :group 'cursor)
1361 :group 'cursor)
1365 (defcustom cursor-in-non-selected-windows t
1366 "*Non-nil means show a hollow box cursor in non-selected windows.
1367 If nil, don't show a cursor except in the selected window.
1371 :group 'cursor