[Emacs-diffs] Changes to emacs/lisp/help-at-pt.el [lexbind]

[Miles Bader]

Index: emacs/lisp/help-at-pt.el
diff -c emacs/lisp/help-at-pt.el:1.2.2.4 emacs/lisp/help-at-pt.el:1.2.2.5
*** emacs/lisp/help-at-pt.el:1.2.2.4    Mon Oct 25 04:22:23 2004
--- emacs/lisp/help-at-pt.el    Thu Nov  4 13:12:40 2004
***************
*** 1,6 ****
  ;;; help-at-pt.el --- local help through the keyboard
  
! ;; Copyright (C) 2003 Free Software Foundation, Inc.
  
  ;; Author: Luc Teirlinck <address@hidden>
  ;; Keywords: help
--- 1,6 ----
  ;;; help-at-pt.el --- local help through the keyboard
  
! ;; Copyright (C) 2003, 2004 Free Software Foundation, Inc.
  
  ;; Author: Luc Teirlinck <address@hidden>
  ;; Keywords: help
***************
*** 98,103 ****
--- 98,110 ----
        (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,128 ****
  new value."
    :group 'help-at-pt
    :type 'number
    :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.")
  
  ;;;###autoload
  (defun help-at-pt-cancel-timer ()
--- 119,130 ----
  new value."
    :group 'help-at-pt
    :type 'number
+   :initialize 'custom-initialize-default
    :set (lambda (variable value)
         (set-default variable value)
!        (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 ()
***************
*** 144,150 ****
          (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
--- 146,151 ----