(popup-dialog-box): Don't quote nil and t in docstrings.

[gnu-emacs] / lisp / tooltip.el

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 6c14b9fb82e1a6b36b82cf231dc5c5efabf1f4a4..ea5aaaa87d6ef706def1ba9c64276e730b092793 100644 (file)
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -29,7 +29,8 @@
 (eval-when-compile
   (require 'cl)
   (require 'comint)
-  (require 'gud))
+  (require 'gud)
+  (require 'gdb-ui))
 
 \f
 ;;; Customizable settings
@@ -118,10 +119,7 @@ position to pop up the tooltip."
   :group 'tooltip)
 
 (defcustom tooltip-gud-tips-p nil
-  "*Non-nil means show tooltips in GUD sessions.
-Setting this variable directly with `setq' has no effect;
-you should either set it with the Customization facility
-or use the function `tooltip-gud-tips-activate'."
+  "*Non-nil means show tooltips in GUD sessions."
   :type 'boolean
   :tag "GUD"
   :set #'(lambda (symbol on)
@@ -288,7 +286,7 @@ ACTIVATEP non-nil means activate mouse motion events."
 
 (defun tooltip-set-param (alist key value)
   "Change the value of KEY in alist ALIST to VALUE.
-If there's no association for KEY in ALIST, add one, otherwise 
+If there's no association for KEY in ALIST, add one, otherwise
 change the existing association.  Value is the resulting alist."
   (let ((param (assq key alist)))
     (if (consp param)
@@ -323,7 +321,7 @@ position."
                      tooltip-hide-delay
                      tooltip-x-offset
                      tooltip-y-offset))
-      (error 
+      (error
        (message "Error while displaying tooltip: %s" error)
        (sit-for 1)
        (message "%s" text)))))
@@ -413,41 +411,16 @@ This event can be examined by forms in TOOLTIP-GUD-DISPLAY.")
     (message "Dereferencing is now %s."
             (if tooltip-gud-dereference "on" "off"))))
 
-; This will only display data that comes in one chunk. 
-; The prompt is lost in first chunk so needn't be stripped. 
+; This will only display data that comes in one chunk.
 ; Larger arrays (say 400 elements) are displayed in
-; the tootip incompletely (only the last chunk is displayed
-; with the rest going to the gud buffer).
+; the tootip incompletely and spill over into the gud buffer.
 ; Switching the process-filter creates timing problems and
-; it may be difficult to do better.
+; it may be difficult to do better. gdba in gdb-ui.el
+; gets round this problem.
 (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)
-  (case gud-minor-mode
-    (gdba (tooltip-show (tooltip-strip-annotations output)))
-    (t (tooltip-show (tooltip-strip-prompt process output)))))
-
-; this is derived from gdb-output-burst in gdb-ui.el. It
-; also only processes data that comes in one chunk properly.
-(defun tooltip-strip-annotations (string)
-  "Strip annotations from the output of the gdb process."
-  (save-match-data
-    (let ((output ""))
-
-      ;; Process all the complete markers in this chunk.
-      (while (string-match "\n\032\032\\(.*\\)\n" string)
-
-       ;; Stuff prior to the match is just ordinary output.
-       ;; It is either concatenated to OUTPUT or directed
-       ;; elsewhere.
-       (setq output
-             (gdb-concat-output 
-              output
-              (substring string 0 (match-beginning 0))))
-
-       ;; Take that stuff off the string.
-       (setq string (substring string (match-end 0))))
-      output)))
+  (tooltip-show (tooltip-strip-prompt process output)))
 
 (defun tooltip-gud-print-command (expr)
   "Return a suitable command to print the expression EXPR.
@@ -481,10 +454,19 @@ This function must return nil if it doesn't handle EVENT."
        (when expr
          (let ((cmd (tooltip-gud-print-command expr)))
            (unless (null cmd)         ; CMD can be nil if unknown debugger
-             (setq tooltip-gud-original-filter (process-filter process))
-             (set-process-filter process 'tooltip-gud-process-output)
-             (gud-basic-call cmd)
-             expr)))))))
+             (case gud-minor-mode
+                   (gdba (gdb-enqueue-input
+                          (list  (concat cmd "\n") 'gdb-tooltip-print)))
+                   (t
+                    (setq tooltip-gud-original-filter (process-filter process))
+                      (set-process-filter process 'tooltip-gud-process-output)
+                      (gud-basic-call cmd)))
+                   expr)))))))
+
+(defun gdb-tooltip-print ()
+  (tooltip-show
+   (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
+     (buffer-string))))
 
 \f
 ;;; Tooltip help.
@@ -506,7 +488,7 @@ MSG is either a help string to display, or nil to cancel the display."
           ;; Keep what we have.
           )
          (t
-          ;; A different help.  Remove a previous tooltip, and 
+          ;; A different help.  Remove a previous tooltip, and
           ;; display a new one, with some delay.
           (tooltip-hide)
           (tooltip-start-delayed-tip)))))