(cc-mode-cpp-program): New user variable.

(cc-create-define-alist): Use it instead of the hard-coded string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75b4168eddefbd2e6dfdeea3231b6d4e08258f04..cab0cc3f468e1b18ce9db59047bb4f3eb40ea709 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-29  Sam Steingold  <sds@gnu.org>
+
+       * progmodes/cc-mode.el (cc-mode-cpp-program): New user variable.
+       (cc-create-define-alist): Use it instead of the hard-coded string.
+
 2005-04-29  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * international/mule-conf.el (file-coding-system-alist): Fix regexp

diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index b464c1483b11db40c60a1f18ecda4c22330ae21e..920b253d4b73e91252c425ea396e9142e16a07fc 100644 (file)
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -640,13 +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 "/lib/cpp"
+  "*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 "/lib/cpp"
+             (call-process cc-mode-cpp-program
                            file t nil "-dM"))))
        (define-list (split-string output "\n" t))
        (name))