Mercurial > emacs
changeset 62065:115b0152e8bb
(gdb-cpp-define-alist-flags): New variable.
(gdb-create-define-alist): Use. it.
(gdb-cpp-define-alist-program): Update for MS-DOS?
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Wed, 04 May 2005 20:44:02 +0000 |
| parents | 24ece2a91836 |
| children | 62b28da0d290 |
| files | lisp/progmodes/gdb-ui.el |
| diffstat | 1 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el Wed May 04 20:43:22 2005 +0000 +++ b/lisp/progmodes/gdb-ui.el Wed May 04 20:44:02 2005 +0000 @@ -196,7 +196,9 @@ :group 'gud :version "22.1") -(defcustom gdb-cpp-define-alist-program "gcc -E -dM -" +(defcustom gdb-cpp-define-alist-program + (cond ((eq system-type 'ms-dos) "gcc -E -dM -o - -") + (t "gcc -E -dM -")) "The program name for generating an alist of #define directives. This list is used to display the #define directive associated with an identifier as a tooltip. It works in a debug session with @@ -205,9 +207,16 @@ :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") + (defvar gdb-define-alist nil "Alist of #define directives for GUD tooltips.") (defun gdb-create-define-alist () + "Create an alist of #define directives for GUD tooltips." (let* ((file (buffer-file-name)) (output (with-output-to-string @@ -215,7 +224,8 @@ (call-process shell-file-name (if (file-exists-p file) file nil) (list t nil) nil "-c" - gdb-cpp-define-alist-program)))) + (concat gdb-cpp-define-alist-program " " + gdb-cpp-define-alist-flags))))) (define-list (split-string output "\n" t)) (name)) (setq gdb-define-alist nil)