(show-cursor-in-non-selected-windows): New option.

(busy-cursor-delay-seconds): New option.

diff --git a/lisp/frame.el b/lisp/frame.el
index bd153f915f3ff206e913d36e23213cd92ecec7bb..d993eeba69ff3a09a616dcb77d8be74dd69d6dab 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1096,6 +1096,16 @@ itself as a pre-command hook."
           (set-default symbol value)
           (setq display-busy-cursor value)))
 
+(defcustom busy-cursor-delay-seconds 1
+  "*Seconds to wait before displaying a busy-cursor."
+  :tag "Busy-cursor delay"
+  :type 'integer
+  :group 'cursor
+  :get #'(lambda (symbol) busy-cursor-delay)
+  :set #'(lambda (symbol value)
+          (set-default symbol value)
+          (setq busy-cursor-delay value)))
+
 \f
 (defcustom show-cursor-in-non-selected-windows t
   "*Non-nil means show a hollow box cursor in non-selected-windows.