[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.65 emacs/lisp/progmodes/gdb-ui.el:1.66
*** emacs/lisp/progmodes/gdb-ui.el:1.65 Fri May  6 12:47:54 2005
--- emacs/lisp/progmodes/gdb-ui.el      Fri May  6 22:12:34 2005
***************
*** 200,212 ****
    "Shell command for generating a list of defined macros in a source file.
  This list is used to display the #define directive associated
  with an identifier as a tooltip. It works in a debug session with
! GDB, when tooltip-gud-tips-p is t."
    :type 'string
    :group 'gud
    :version "22.1")
  
  (defcustom gdb-cpp-define-alist-flags ""
!   "*Preprocessor flags used by `gdb-create-define-alist'."
    :type 'string
    :group 'gud
    :version "22.1")
--- 200,215 ----
    "Shell command for generating a list of defined macros in a source file.
  This list is used to display the #define directive associated
  with an identifier as a tooltip. It works in a debug session with
! GDB, when gud-tooltip-mode is t.
! 
! Set `gdb-cpp-define-alist-flags' for any include paths or
! predefined macros."
    :type 'string
    :group 'gud
    :version "22.1")
  
  (defcustom gdb-cpp-define-alist-flags ""
!   "*Preprocessor flags for `gdb-cpp-define-alist-program'."
    :type 'string
    :group 'gud
    :version "22.1")
***************
*** 231,236 ****
--- 234,247 ----
        (setq name (nth 1 (split-string define "[( ]")))
        (push (cons name define) gdb-define-alist))))
  
+ (defun gdb-tooltip-print ()
+   (tooltip-show
+    (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
+      (let ((string (buffer-string)))
+        ;; remove newline for gud-tooltip-echo-area
+        (substring string 0 (- (length string) 1))))
+    gud-tooltip-echo-area))
+ 
  (defun gdb-set-gud-minor-mode (buffer)
    "Set gud-minor-mode from find-file if appropriate."
    (goto-char (point-min))
***************
*** 250,258 ****
      (with-current-buffer buffer
        (set (make-local-variable 'gud-minor-mode) 'gdba)
        (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
!       (make-local-variable 'gdb-define-alist)
!       (gdb-create-define-alist)
!       (add-hook 'after-save-hook 'gdb-create-define-alist nil t))))
  
  (defun gdb-set-gud-minor-mode-existing-buffers ()
    (dolist (buffer (buffer-list))
--- 261,270 ----
      (with-current-buffer buffer
        (set (make-local-variable 'gud-minor-mode) 'gdba)
        (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
!       (when gud-tooltip-mode
!       (make-local-variable 'gdb-define-alist)
!       (gdb-create-define-alist)
!       (add-hook 'after-save-hook 'gdb-create-define-alist nil t)))))
  
  (defun gdb-set-gud-minor-mode-existing-buffers ()
    (dolist (buffer (buffer-list))