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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
