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:03:16 GMT
Organization: Road Runner - Texas
Sender: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <Ewz2a.39752$yn1.1662533@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>
	<3E3F019E.8060308@ihs.com>
NNTP-Posting-Host: main.gmane.org
X-Trace: main.gmane.org 1045087851 5331 80.91.224.249 (12 Feb 2003 22:10:51 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 12 Feb 2003 22:10:51 +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 18j4zs-0000xT-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Wed, 12 Feb 2003 23:04:52 +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 18j50f-0002cH-01
	for gnu-help-gnu-emacs@m.gmane.org; Wed, 12 Feb 2003 17:05:41 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed-west.nntpserver.com!hub1.meganetnews.com!nntpserver.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: 24
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 1045087396 24.153.141.242 (Wed, 12 Feb 2003
	16:03:16 CST)
Original-NNTP-Posting-Date: Wed, 12 Feb 2003 16:03:16 CST
Original-Xref: shelby.stanford.edu gnu.emacs.help:110097
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:6601
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:6601

"Kevin Rodgers" <kevin.rodgers@ihs.com> wrote in message
news:3E3F019E.8060308@ihs.com...
> Then force M-x compile to run the command synchronously:
>
> (fmakunbound 'start-process)
>
> Note: This may have other, undesirable consequences.

This code has worked for me. To do away with the "undesirable consequences",
I make this temporary in the compile function:

(defadvice compile (before cobol-compile activate)
  "Set compile-command and make compile syncronous"
  (fset 'save-start-process (symbol-function 'start-process))
  (fmakunbound 'start-process))

(defadvice compile (after cobol-compile activate)
  "Process cobol error listing."
  (fset 'start-process 'save-start-process)
...

Thanks to all who helped me.