(tooltip-show): Change second arg to USE-ECHO-AREA

and make it optional.  Don't test tooltip-gud-echo-area here.
(tooltip-gud-process-output, gdb-tooltip-print): Pass
tooltip-gud-echo-area to tooltip-show.
(tooltip-help-tips): Remove second optional arg.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b137be21e03ec670361468914b57ab50e83977f4..98668e689b6b21cb7f06b5581bdd03c65606a43b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,7 +4,7 @@
        and make it optional.  Don't test tooltip-gud-echo-area here.
        (tooltip-gud-process-output, gdb-tooltip-print): Pass
        tooltip-gud-echo-area to tooltip-show.
-       (tooltip-help-tips): Remove second optional arg.
+       (tooltip-help-tips): Remove second optional arg to tooltip-show.
 
 2005-04-18  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 89a72d570a22c8d9cd8013704ac1e87acc7f1308..d70e20e5b6bccd95d9e207b9a65f9674f7ee502d 100644 (file)
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -290,7 +290,7 @@ change the existing association.  Value is the resulting alist."
       (push (cons key value) alist))
     alist))
 
-(defun tooltip-show (text gud-tip)
+(defun tooltip-show (text &optional use-echo-area)
   "Show a tooltip window displaying TEXT.
 
 Text larger than `x-max-tooltip-size' is clipped.
@@ -301,8 +301,9 @@ is displayed.  Otherwise, the tooltip pops at offsets specified by
 `tooltip-x-offset' and `tooltip-y-offset' from the current mouse
 position.
 
-GUD-TIP is t if the tooltip is from a GUD session and nil otherwise."
-  (if (and gud-tip tooltip-gud-echo-area)
+Optional second arg USE-ECHO-AREA non-nil means to show tooltip
+in echo area."
+  (if use-echo-area
       (message "%s" text)
     (condition-case error
        (let ((params (copy-sequence tooltip-frame-parameters))
@@ -418,7 +419,8 @@ This event can be examined by forms in TOOLTIP-GUD-DISPLAY.")
 (defun tooltip-gud-process-output (process output)
   "Process debugger output and show it in a tooltip window."
   (set-process-filter process tooltip-gud-original-filter)
-  (tooltip-show (tooltip-strip-prompt process output) t))
+  (tooltip-show (tooltip-strip-prompt process output)
+               tooltip-gud-echo-area))
 
 (defun tooltip-gud-print-command (expr)
   "Return a suitable command to print the expression EXPR.
@@ -465,7 +467,8 @@ This function must return nil if it doesn't handle EVENT."
    (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
      (let ((string (buffer-string)))
        ;; remove newline for tooltip-gud-echo-area
-       (substring string 0 (- (length string) 1)))) t))
+       (substring string 0 (- (length string) 1))))
+   tooltip-gud-echo-area))
 
 \f
 ;;; Tooltip help.
@@ -498,7 +501,7 @@ This is installed on the hook `tooltip-hook', which is run when
 the timer with ID `tooltip-timeout-id' fires.
 Value is non-nil if this function handled the tip."
   (when (stringp tooltip-help-message)
-    (tooltip-show tooltip-help-message nil)
+    (tooltip-show tooltip-help-message)
     t))
 
 (provide 'tooltip)