diff options
| author | Gerd Moellmann | 2000-02-25 13:34:08 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-02-25 13:34:08 +0000 |
| commit | 1d0a3ef4331dbdbbcc700e740ba6d90efd0ddb02 (patch) | |
| tree | d6ba4e92d3ba0ff326b42200228ac29035168296 | |
| parent | 4ae9a85e9783e65d87061bf74dcc58e6e7a9209d (diff) | |
| download | emacs-1d0a3ef4331dbdbbcc700e740ba6d90efd0ddb02.tar.gz emacs-1d0a3ef4331dbdbbcc700e740ba6d90efd0ddb02.zip | |
(show-cursor-in-non-selected-windows): New option.
(busy-cursor-delay-seconds): New option.
| -rw-r--r-- | lisp/frame.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index bd153f915f3..d993eeba69f 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -1096,6 +1096,16 @@ itself as a pre-command hook." | |||
| 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. |