[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.63 emacs/lisp/progmodes/gdb-ui.el:1.64
*** emacs/lisp/progmodes/gdb-ui.el:1.63 Tue May  3 06:48:47 2005
--- emacs/lisp/progmodes/gdb-ui.el      Wed May  4 20:44:02 2005
***************
*** 196,202 ****
    :group 'gud
    :version "22.1")
  
! (defcustom gdb-cpp-define-alist-program "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
--- 196,204 ----
    :group 'gud
    :version "22.1")
  
! (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,213 ****
--- 207,222 ----
    :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,221 ****
              (call-process shell-file-name
                            (if (file-exists-p file) file nil)
                            (list t nil) nil "-c"
!                           gdb-cpp-define-alist-program))))
        (define-list (split-string output "\n" t))
        (name))
      (setq gdb-define-alist nil)
--- 224,231 ----
              (call-process shell-file-name
                            (if (file-exists-p file) file nil)
                            (list t nil) nil "-c"
!                           (concat gdb-cpp-define-alist-program " "
!                                   gdb-cpp-define-alist-flags)))))
        (define-list (split-string output "\n" t))
        (name))
      (setq gdb-define-alist nil)