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") |
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)) |
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)) |