# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 951485648 0
# Node ID 490743da8567be8708298960b54461a970641e22
# Parent  ea05cbe65943f558fc42699068adb165738fd9f5
(show-cursor-in-non-selected-windows): New option.
(busy-cursor-delay-seconds): New option.

diff -r ea05cbe65943 -r 490743da8567 lisp/frame.el
--- a/lisp/frame.el	Fri Feb 25 13:32:18 2000 +0000
+++ b/lisp/frame.el	Fri Feb 25 13:34:08 2000 +0000
@@ -1096,6 +1096,16 @@
 	   (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)))
+
 
 (defcustom show-cursor-in-non-selected-windows t
   "*Non-nil means show a hollow box cursor in non-selected-windows.