mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(tooltip-mode): Customize this, per convention.

Browse Source 
(tooltip-active): Option deleted.
This commit is contained in:
Dave Love 1999-08-19 18:35:29 +00:00
parent 443de9cd11
commit 01b23b9933
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lisp/tooltip.el
View File

@ -1,6 +1,6 @@
;;; tooltip.el --- Show tooltip windows
;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1999 Free Software Foundation, Inc.
;; Author: Gerd Moellmann <gerd@acm.org>
;; Keywords: help c mouse tools
@ -49,8 +49,10 @@
:group 'c
:group 'mouse
:group 'tools
:version "21.1"
:tag "Tool Tips")
(defvar tooltip-mode)
(defcustom tooltip-delay 1.0
"Seconds to wait before displaying a tooltip the first time."
@ -67,8 +69,8 @@
(defcustom tooltip-recent-seconds 1
"Display tooltips after `tooltip-short-delay' if changing tip items
within this many seconds."
"Display tooltips if changing tip items within this many seconds.
Do so after `tooltip-short-delay'."
:tag "Recent seconds"
:type 'number
:group 'tooltip)
@ -134,10 +136,6 @@ the last mouse movement event that occurred.")
"Time when the last tooltip was hidden.")
(defvar tooltip-mode nil
"Non-nil means tooltip mode is on.")
(defvar tooltip-gud-debugger nil
"The debugger for which we show tooltips.")
@ -402,10 +400,10 @@ If TOOLTIP-GUD-DEREFERENCE is t, also prepend a `*' to EXPR."
(defun tooltip-gud-tips (event)
"Show tip for identifier or selection under the mouse. The mouse
must either point at an identifier or inside a selected region for the
tip window to be shown. If tooltip-gud-dereference is t, add a `*' in
front of the printed expression.
"Show tip for identifier or selection under the mouse.
The mouse must either point at an identifier or inside a selected
region for the tip window to be shown. If tooltip-gud-dereference is t,
add a `*' in front of the printed expression.
This function must return nil if it doesn't handle EVENT."
(let (gud-buffer process)
@ -462,13 +460,16 @@ Value is non-nil if this function handled the tip."
;;; Do this after all functions have been defined that are called
;;; from `tooltip-mode'.
(defcustom tooltip-active nil
"*Non-nil means tooltips are active."
:tag "Activate tooltips"
;;;###autoload
(defcustom tooltip-mode nil
"Toggle tooltip-mode.
Setting this variable directly does not take effect;
use either \\[customize] or the function `tooltip-mode'."
:set (lambda (symbol value)
(tooltip-mode (or value 0)))
:initialize 'custom-initialize-default
:type 'boolean
:set #'(lambda (symbol value)
(set-default symbol value)
(tooltip-mode (or value 0)))
:require 'tooltip
:group 'tooltip)