From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: "CarlC" <carlc@snowbd.com>
Newsgroups: gmane.emacs.help
Subject: Re: Checking Process Status
Date: Wed, 12 Feb 2003 22:55:30 GMT
Organization: Road Runner - Texas
Sender: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <ChA2a.39977$yn1.1674079@twister.austin.rr.com>
References: <Qnv%9.23401$2y.1118192@twister.austin.rr.com>
	<URB%9.23663$2y.1199994@twister.austin.rr.com>
	<mfC%9.23678$2y.1205561@twister.austin.rr.com>
	<Ewz2a.39752$yn1.1662533@twister.austin.rr.com>
	<qWz2a.39840$yn1.1668284@twister.austin.rr.com>
	<x5wuk52k8v.fsf@lola.goethe.zz>
NNTP-Posting-Host: main.gmane.org
X-Trace: main.gmane.org 1045091114 18733 80.91.224.249 (12 Feb 2003 23:05:14 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 12 Feb 2003 23:05:14 +0000 (UTC)
Return-path: <help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 18j5my-00040P-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Wed, 12 Feb 2003 23:55:36 +0100
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10.13)
	id 18j5n8-0007rG-02
	for gnu-help-gnu-emacs@m.gmane.org; Wed, 12 Feb 2003 17:55:46 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!logbridge.uoregon.edu!arclight.uoregon.edu!enews.sgi.com!sdd.hp.com!usc.edu!newspeer.cts.com!news-west.rr.com!cyclone.austin.rr.com!twister.austin.rr.com.POSTED!53ab2750!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 16
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2720.3000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Original-NNTP-Posting-Host: 24.153.141.242
Original-X-Complaints-To: abuse@rr.com
Original-X-Trace: twister.austin.rr.com 1045090530 24.153.141.242 (Wed, 12 Feb 2003
	16:55:30 CST)
Original-NNTP-Posting-Date: Wed, 12 Feb 2003 16:55:30 CST
Original-Xref: shelby.stanford.edu gnu.emacs.help:110101
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1b5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
Errors-To: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:6604
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:6604

"David Kastrup" <dak@gnu.org> wrote in message
news:x5wuk52k8v.fsf@lola.goethe.zz...
> I'd use
> (defadvice compile (around cobol-compile activate)
>   "Set ...."
>   (let ((saved-start-process (symbol-function 'start-process)))
>        (unwind-protect
>          (progn (fmakunbound 'start-process) ad-to-it)
>          (fset 'start-process saved-start-process))))

I haven't taken the time to figure out the "around" command. Is this like an
"if", where the first function goes before and all others go after the
compile function? The main part of my need is to add stuff after the
compilation has finished, but I also do some things prior to compiling.