From: Francesco Potortì <pot@gnu.org>
Date: Thu, 1 Sep 1994 11:05:40 +0000 (+0000)
Subject: * cmacexp.el (c-macro-prompt-flag): set default to t.
X-Git-Tag: emacs-19.34~7175
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3332766c74f10bec624a5fca5a8dd1d6480a2fc4;p=emacs.git

* cmacexp.el (c-macro-prompt-flag): set default to t.
	(c-macro-expand): buffer-flush-undo is outdated.
	(c-macro-expansion): make exit-status a local variable.
---

diff --git a/lisp/progmodes/cmacexp.el b/lisp/progmodes/cmacexp.el
index a84aa5eb091..2067b13b114 100644
--- a/lisp/progmodes/cmacexp.el
+++ b/lisp/progmodes/cmacexp.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1992, 1994 Free Software Foundation, Inc.
 
 ;; Author: Francesco Potorti` <pot@cnuce.cnr.it>
-;; Version: $Id: cmacexp.el,v 1.15 1994/08/07 17:23:44 rms Exp rms $
+;; Version: $Id: cmacexp.el,v 1.17 1994/09/01 10:35:52 pot Exp pot $
 ;; Adapted-By: ESR
 ;; Keywords: c
 
@@ -66,7 +66,7 @@
 
 ;; IMPROVEMENTS OVER emacs 18.xx cmacexp.el ==========================
 
-;; - A lot of user visible changes.  See above.
+;; - A lot of user and programmer visible changes.  See above.
 ;; - #line directives are inserted, so __LINE__ and __FILE__ are
 ;;   correctly expanded.  Works even with START inside a string, a
 ;;   comment or a region #ifdef'd away by cpp. cpp is invoked with -C,
@@ -90,7 +90,7 @@
 (defvar c-macro-shrink-window-flag nil
   "*Non-nil means shrink the *Macroexpansion* window to fit its contents.")
 
-(defvar c-macro-prompt-flag nil
+(defvar c-macro-prompt-flag t
   "*Non-nil makes `c-macro-expand' prompt for preprocessor arguments.")
 
 (defvar c-macro-preprocessor "/lib/cpp -C"
@@ -150,7 +150,7 @@ For use inside Lisp programs, see also `c-macro-expansion'."
 	      (exchange-point-and-mark)))
       (set-buffer displaybuf)
       (setq buffer-read-only nil)
-      (buffer-flush-undo displaybuf)
+      (buffer-disable-undo displaybuf)
       (erase-buffer)
       (insert expansion)
       (set-buffer-modified-p nil)
@@ -240,6 +240,7 @@ Optional arg DISPLAY non-nil means show messages in the echo area."
 	(linenum 0)
 	(startstat ())
 	(startmarker "")
+	(exit-status 0)
 	(tempname (make-temp-name "/tmp/")))
     (unwind-protect
 	(save-excursion