From 3332766c74f10bec624a5fca5a8dd1d6480a2fc4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Francesco=20Potort=C3=AC?= Date: Thu, 1 Sep 1994 11:05:40 +0000 Subject: [PATCH] * 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. --- lisp/progmodes/cmacexp.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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` -;; 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 -- 2.39.5