Function: xterm--update-cursor-type

xterm--update-cursor-type is a byte-compiled function defined in xterm.el.gz.

Signature

(xterm--update-cursor-type)

Documentation

Update the cursor type for Xterm-compatible terminals.

This updates the selected frame's terminal based on cursor-type.

Source Code

;; Defined in /usr/src/emacs/lisp/term/xterm.el.gz
(defun xterm--update-cursor-type ()
  "Update the cursor type for Xterm-compatible terminals.
This updates the selected frame's terminal based on `cursor-type'."
  (let ((buffer-cursor cursor-type)
        (window-cursor (window-cursor-type))
        (frame-cursor (frame-parameter nil 'cursor-type))
        type)
    ;; All of them can be conses, in which case the type symbol is the car.
    (when (consp buffer-cursor) (setf buffer-cursor (car buffer-cursor)))
    (when (consp window-cursor) (setf window-cursor (car window-cursor)))
    (when (consp frame-cursor) (setf frame-cursor (car frame-cursor)))
    (cond ((not (eq window-cursor t))
           (setf type window-cursor))
          ((not (eq buffer-cursor t))
           (setf type buffer-cursor))
          (t
           (setf type frame-cursor)))
    (xterm--set-cursor-type nil type)))