Mercurial > emacs
changeset 57798:bb24af8f5452
(help-at-pt-timer): Move defvar up to avoid compiler warning.
(help-at-pt-timer-delay): Add :initialize and :version keywords.
Simplify :set function.
(help-at-pt-display-when-idle): Remove autoload. Add :version keyword.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Sat, 30 Oct 2004 19:44:44 +0000 |
| parents | dc994538d85a |
| children | 072a1474f638 |
| files | lisp/help-at-pt.el |
| diffstat | 1 files changed, 15 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help-at-pt.el Sat Oct 30 16:43:18 2004 +0000 +++ b/lisp/help-at-pt.el Sat Oct 30 19:44:44 2004 +0000 @@ -1,6 +1,6 @@ ;;; 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 @@ -98,6 +98,13 @@ (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. @@ -112,17 +119,13 @@ 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))) + :version "21.4") ;;;###autoload (defun help-at-pt-cancel-timer () @@ -144,7 +147,6 @@ (run-with-idle-timer help-at-pt-timer-delay t #'help-at-pt-maybe-display)))) -;;;###autoload (defcustom help-at-pt-display-when-idle 'never "*Automatically show local help on point-over. If the value is t, the string obtained from any `kbd-help' or @@ -226,7 +228,8 @@ (help-at-pt-cancel-timer) (help-at-pt-set-timer))) :set-after '(help-at-pt-timer-delay) - :require 'help-at-pt) + :require 'help-at-pt + :version "21.4") ;; Function for use in `help-at-pt-set-timer'. (defun help-at-pt-maybe-display ()