* semantic/complete.el (tooltip-mode, tooltip-frame-parameters, tooltip-show):
Declare.
This commit is contained in:
@@ -1,3 +1,8 @@
|
||||
2013-09-18 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* semantic/complete.el (tooltip-mode, tooltip-frame-parameters)
|
||||
(tooltip-show): Declare.
|
||||
|
||||
2013-09-17 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* semantic/symref/list.el (semantic-symref-results-mode):
|
||||
|
||||
@@ -1634,6 +1634,8 @@ Display mechanism using tooltip for a list of possible completions.")
|
||||
(error nil))
|
||||
)
|
||||
|
||||
(defvar tooltip-mode)
|
||||
|
||||
(defmethod semantic-displayor-show-request ((obj semantic-displayor-tooltip))
|
||||
"A request to show the current tags table."
|
||||
(if (or (not (featurep 'tooltip)) (not tooltip-mode))
|
||||
@@ -1726,6 +1728,9 @@ Return a cons cell (X . Y)"
|
||||
(+ (cdr point-pix-pos) (cadr edges) top))))
|
||||
|
||||
|
||||
(defvar tooltip-frame-parameters)
|
||||
(declare-function tooltip-show "tooltip" (text &optional use-echo-area))
|
||||
|
||||
(defun semantic-displayor-tooltip-show (text)
|
||||
"Display a tooltip with TEXT near cursor."
|
||||
(let ((point-pix-pos (semantic-displayor-point-position))
|
||||
|
||||
Reference in New Issue
Block a user