/[emacs]/emacs/lisp/progmodes/gdb-ui.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gdb-ui.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.65 by eliz, Fri May 6 12:47:54 2005 UTC revision 1.66 by nickrob, Fri May 6 22:12:34 2005 UTC
# Line 200  detailed description of this mode. Line 200  detailed description of this mode.
200    "Shell command for generating a list of defined macros in a source file.    "Shell command for generating a list of defined macros in a source file.
201  This list is used to display the #define directive associated  This list is used to display the #define directive associated
202  with an identifier as a tooltip. It works in a debug session with  with an identifier as a tooltip. It works in a debug session with
203  GDB, when tooltip-gud-tips-p is t."  GDB, when gud-tooltip-mode is t.
204    
205    Set `gdb-cpp-define-alist-flags' for any include paths or
206    predefined macros."
207    :type 'string    :type 'string
208    :group 'gud    :group 'gud
209    :version "22.1")    :version "22.1")
210    
211  (defcustom gdb-cpp-define-alist-flags ""  (defcustom gdb-cpp-define-alist-flags ""
212    "*Preprocessor flags used by `gdb-create-define-alist'."    "*Preprocessor flags for `gdb-cpp-define-alist-program'."
213    :type 'string    :type 'string
214    :group 'gud    :group 'gud
215    :version "22.1")    :version "22.1")
# Line 231  GDB, when tooltip-gud-tips-p is t." Line 234  GDB, when tooltip-gud-tips-p is t."
234        (setq name (nth 1 (split-string define "[( ]")))        (setq name (nth 1 (split-string define "[( ]")))
235        (push (cons name define) gdb-define-alist))))        (push (cons name define) gdb-define-alist))))
236    
237    (defun gdb-tooltip-print ()
238      (tooltip-show
239       (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
240         (let ((string (buffer-string)))
241           ;; remove newline for gud-tooltip-echo-area
242           (substring string 0 (- (length string) 1))))
243       gud-tooltip-echo-area))
244    
245  (defun gdb-set-gud-minor-mode (buffer)  (defun gdb-set-gud-minor-mode (buffer)
246    "Set gud-minor-mode from find-file if appropriate."    "Set gud-minor-mode from find-file if appropriate."
247    (goto-char (point-min))    (goto-char (point-min))
# Line 250  GDB, when tooltip-gud-tips-p is t." Line 261  GDB, when tooltip-gud-tips-p is t."
261      (with-current-buffer buffer      (with-current-buffer buffer
262        (set (make-local-variable 'gud-minor-mode) 'gdba)        (set (make-local-variable 'gud-minor-mode) 'gdba)
263        (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)        (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
264        (make-local-variable 'gdb-define-alist)        (when gud-tooltip-mode
265        (gdb-create-define-alist)          (make-local-variable 'gdb-define-alist)
266        (add-hook 'after-save-hook 'gdb-create-define-alist nil t))))          (gdb-create-define-alist)
267            (add-hook 'after-save-hook 'gdb-create-define-alist nil t)))))
268    
269  (defun gdb-set-gud-minor-mode-existing-buffers ()  (defun gdb-set-gud-minor-mode-existing-buffers ()
270    (dolist (buffer (buffer-list))    (dolist (buffer (buffer-list))

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26