Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
01b23b99
Commit
01b23b99
authored
Aug 19, 1999
by
Dave Love
Browse files
(tooltip-mode): Customize this, per convention.
(tooltip-active): Option deleted.
parent
443de9cd
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
18 additions
and
17 deletions
+18
-17
lisp/tooltip.el
lisp/tooltip.el
+18
-17
No files found.
lisp/tooltip.el
View file @
01b23b99
;;; 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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment