(cc-create-define-alist): Use a shell.

(cc-mode-cpp-program): Rename to cc-define-list-program and
move to cc-vars.el.

diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index fdb308b7dc9faaff96dd9eba6b56c69628d09e3d..df27ee5a1b9099a6d8b0fc4d50a55b5bde3cb60f 100644 (file)
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -640,16 +640,15 @@ Note that the style variables are always made local to the buffer."
 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.lex\\'" . c-mode))
 
 (defvar cc-define-alist nil "Alist of #define directives for GUD tooltips.")
-(defvar cc-mode-cpp-program "gcc -E"
-  "*The program name for the CPP pre-processor.")
 
 (defun cc-create-define-alist ()
   (let* ((file (buffer-file-name))
         (output
          (with-output-to-string
            (with-current-buffer standard-output
-             (call-process cc-mode-cpp-program
-                           (if (file-exists-p file) file nil) t nil "-dM"))))
+             (call-process shell-file-name
+                           (if (file-exists-p file) file nil)
+                           (list t nil) nil "-c" cc-define-list-program))))
        (define-list (split-string output "\n" t))
        (name))
     (setq cc-define-alist nil)