Mercurial > emacs
comparison lisp/frame.el @ 27865:490743da8567
(show-cursor-in-non-selected-windows): New option.
(busy-cursor-delay-seconds): New option.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 25 Feb 2000 13:34:08 +0000 |
| parents | 1ef6cae16192 |
| children | 2bf72063e6f0 |
comparison
equal
deleted
inserted
replaced
| 27864:ea05cbe65943 | 27865:490743da8567 |
|---|---|
| 1094 :get #'(lambda (symbol) display-busy-cursor) | 1094 :get #'(lambda (symbol) display-busy-cursor) |
| 1095 :set #'(lambda (symbol value) | 1095 :set #'(lambda (symbol value) |
| 1096 (set-default symbol value) | 1096 (set-default symbol value) |
| 1097 (setq display-busy-cursor value))) | 1097 (setq display-busy-cursor value))) |
| 1098 | 1098 |
| 1099 (defcustom busy-cursor-delay-seconds 1 | |
| 1100 "*Seconds to wait before displaying a busy-cursor." | |
| 1101 :tag "Busy-cursor delay" | |
| 1102 :type 'integer | |
| 1103 :group 'cursor | |
| 1104 :get #'(lambda (symbol) busy-cursor-delay) | |
| 1105 :set #'(lambda (symbol value) | |
| 1106 (set-default symbol value) | |
| 1107 (setq busy-cursor-delay value))) | |
| 1108 | |
| 1099 | 1109 |
| 1100 (defcustom show-cursor-in-non-selected-windows t | 1110 (defcustom show-cursor-in-non-selected-windows t |
| 1101 "*Non-nil means show a hollow box cursor in non-selected-windows. | 1111 "*Non-nil means show a hollow box cursor in non-selected-windows. |
| 1102 If nil, don't show a cursor except in the selected window." | 1112 If nil, don't show a cursor except in the selected window." |
| 1103 :tag "Cursor in non-selected windows" | 1113 :tag "Cursor in non-selected windows" |