[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/help-at-pt.el
From: |
Luc Teirlinck |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/help-at-pt.el |
Date: |
Sat, 30 Oct 2004 15:50:18 -0400 |
Index: emacs/lisp/help-at-pt.el
diff -c emacs/lisp/help-at-pt.el:1.5 emacs/lisp/help-at-pt.el:1.6
*** emacs/lisp/help-at-pt.el:1.5 Sun Oct 17 06:54:13 2004
--- emacs/lisp/help-at-pt.el Sat Oct 30 19:44:44 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,131 ----
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)))
! :version "21.4")
;;;###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
--- 147,152 ----
***************
*** 226,232 ****
(help-at-pt-cancel-timer)
(help-at-pt-set-timer)))
:set-after '(help-at-pt-timer-delay)
! :require 'help-at-pt)
;; Function for use in `help-at-pt-set-timer'.
(defun help-at-pt-maybe-display ()
--- 228,235 ----
(help-at-pt-cancel-timer)
(help-at-pt-set-timer)))
:set-after '(help-at-pt-timer-delay)
! :require 'help-at-pt
! :version "21.4")
;; Function for use in `help-at-pt-set-timer'.
(defun help-at-pt-maybe-display ()