kayvan@APPLE.COM (Kayvan Sylvan) (12/02/88)
In GNU Emacs 18.52.4 of Wed Nov 30 1988 on satyr (usg-unix-v)
cmacexp.el as it is distributed does not contain the copyright notices
as all the other files do.
It also has a hard-coded "/lib/cpp" which I changed to a defvar'ed
variable whose value is "/usr/local/lib/gcc-cpp"
The diff file:
*** cmacexp.el~ Thu Dec 1 11:03:46 1988
--- cmacexp.el Thu Dec 1 10:51:24 1988
***************
*** 1,3 ****
--- 1,27 ----
+ ;; Perform entirely correct C macro expansion.
+ ;; Copyright (C) 1985, 1988 Free Software Foundation, Inc.
+ ;; This file is part of GNU Emacs.
+
+ ;; GNU Emacs is distributed in the hope that it will be useful,
+ ;; but WITHOUT ANY WARRANTY. No author or distributor
+ ;; accepts responsibility to anyone for the consequences of using it
+ ;; or for whether it serves any particular purpose or works at all,
+ ;; unless he says so in writing. Refer to the GNU Emacs General Public
+ ;; License for full details.
+
+ ;; Everyone is granted permission to copy, modify and redistribute
+ ;; GNU Emacs, but only under the conditions described in the
+ ;; GNU Emacs General Public License. A copy of this license is
+ ;; supposed to have been given to you along with GNU Emacs so you
+ ;; can know your rights and responsibilities. It should be in a
+ ;; file named COPYING. Among other things, the copyright notice
+ ;; and this notice must be preserved on all copies.
+
+ ;; Modified by Kayvan Aghaiepour (satyr!kayvan@apple.com) Thu Dec 1 1988
+
+ (defvar c-macro-cpp-prog "/usr/local/lib/gcc-cpp"
+ "*Program to use for c-macro-expand's entirely correct expansion.")
+
(defun c-macro-expand (beg end)
"Display the result of expanding all C macros occurring in the region.
***************
*** 11,15 ****
(set-buffer outbuf)
(erase-buffer))
! (setq process (start-process "macros" outbuf "/lib/cpp"))
(set-process-sentinel process '(lambda (&rest x)))
(save-restriction
--- 35,39 ----
(set-buffer outbuf)
(erase-buffer))
! (setq process (start-process "macros" outbuf c-macro-cpp-prog))
(set-process-sentinel process '(lambda (&rest x)))
(save-restriction