;;; help-at-pt.el --- local help through the keyboard
-;; Copyright (C) 2003 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2004 Free Software Foundation, Inc.
;; Author: Luc Teirlinck <teirllm@auburn.edu>
;; Keywords: help
(defgroup help-at-pt nil
"Features for displaying local help."
:group 'help
- :version "21.4")
+ :version "22.1")
;;;###autoload
(defun help-at-pt-string (&optional kbd)
(message "%s" help)
(if (not arg) (message "No local help at point")))))
+(defvar help-at-pt-timer nil
+ "Non-nil means that a timer is set that checks for local help.
+If non-nil, this is the value returned by the call of
+`run-with-idle-timer' that set that timer. This variable is used
+internally to enable `help-at-pt-display-when-idle'. Do not set it
+yourself.")
+
(defcustom help-at-pt-timer-delay 1
"*Delay before displaying local help.
This is used if `help-at-pt-display-when-idle' is enabled.
new value."
:group 'help-at-pt
:type 'number
+ :initialize 'custom-initialize-default
:set (lambda (variable value)
(set-default variable value)
- (when (and (boundp 'help-at-pt-timer) help-at-pt-timer)
- (timer-set-idle-time help-at-pt-timer value t))))
-
-(defvar help-at-pt-timer nil
- "Non-nil means that a timer is set that checks for local help.
-If non-nil, this is the value returned by the call of
-`run-with-idle-timer' that set that timer. This variable is used
-internally to enable `help-at-pt-display-when-idle'. Do not set it
-yourself.")
+ (and (boundp 'help-at-pt-timer)
+ help-at-pt-timer
+ (timer-set-idle-time help-at-pt-timer value t))))
;;;###autoload
(defun help-at-pt-cancel-timer ()