From: Dave Love <fx@gnu.org>
Date: Thu, 19 Aug 1999 18:35:29 +0000 (+0000)
Subject: (tooltip-mode): Customize this, per convention.
X-Git-Tag: emacs-pretest-21.0.90~7109
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=01b23b99331adfc354ed2eb9e5a801f047abcbbf;p=emacs.git

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

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index ab21bf13dfd..d86d95e1fab 100644
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -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)