From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Kiwon Um Newsgroups: gmane.emacs.help Subject: Re: How to defun body in procedural manner Date: Mon, 20 Apr 2009 00:44:59 -0700 (PDT) Organization: http://groups.google.com Message-ID: <3d87cfcb-eb0c-4dbf-b8cb-da5010b1d5b0@z16g2000prd.googlegroups.com> References: <54d389f8-ce90-428d-8fa1-a88c971589d5@d2g2000pra.googlegroups.com> <640bf9e6-2694-4334-9781-c31254c36c33@k19g2000prh.googlegroups.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1240216897 16748 80.91.229.12 (20 Apr 2009 08:41:37 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 20 Apr 2009 08:41:37 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Apr 20 10:42:57 2009 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Lvp5c-0000Qd-Pv for geh-help-gnu-emacs@m.gmane.org; Mon, 20 Apr 2009 10:42:57 +0200 Original-Received: from localhost ([127.0.0.1]:52308 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Lvp4D-0002qv-PA for geh-help-gnu-emacs@m.gmane.org; Mon, 20 Apr 2009 04:41:29 -0400 Original-Path: news.stanford.edu!headwall.stanford.edu!news.glorb.com!postnews.google.com!z16g2000prd.googlegroups.com!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 63 Original-NNTP-Posting-Host: 163.152.71.53 Original-X-Trace: posting.google.com 1240213500 20257 127.0.0.1 (20 Apr 2009 07:45:00 GMT) Original-X-Complaints-To: groups-abuse@google.com Original-NNTP-Posting-Date: Mon, 20 Apr 2009 07:45:00 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: z16g2000prd.googlegroups.com; posting-host=163.152.71.53; posting-account=6v9_LQoAAACIrmHTUxB_-iw-j364OtYr User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (X11; U; Linux i686; ko-KR; rv:1.9.0.8) Gecko/2009032600 SUSE/3.0.8-1.1 Firefox/3.0.8,gzip(gfe),gzip(gfe) Original-Xref: news.stanford.edu gnu.emacs.help:168624 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:63898 Archived-At: On Apr 17, 9:51=A0pm, thierry.volpia...@gmail.com wrote: > Kiwon Um writes: > > On Apr 17, 2:52=A0pm, thierry.volpia...@gmail.com wrote: > >> Hi, i don't use cvs, but you should have a look at what return: > >> `cvs-sentinel'. > >> and: > >> (when (cvs-sentinel =3D=3D> return_what_you_want) > >> =A0 (shell-command "your_command")) > > > I've tried to understand what the cvs-sentinel function does, but I > > didn't. Would you write a concrete example code for me, please? > > Yes, as i told you i am not a cvs user, so... > it seem cvs-sentinel return only a message :-( > So try that, i just write it and it worked to update emacs-w3m and compil= e > it: > > (defun update-cvs-dir-and-compile () > =A0 (interactive) > =A0 (let ((dir default-directory)) > =A0 =A0 (cvs-update dir nil) > =A0 =A0 (while (not (equal cvs-mode-line-process "exit")) > =A0 =A0 =A0 (sit-for 1)) > =A0 =A0 (shell-command "make"))) > > Modify for your need (make args ...etc..) > Then, how can I check the end of the compile process as similar manner as above? I tried (compile-mode-line-process "exit"), but it didn't work. And I tried as follows: (while (not (equal (process-status "compilation") 'exit)) (sit-for 1)) This didn't work, either. Any advice? > > > >> Kiwon Um writes: > >> > Hello. I wrote a function as follows: > > >> > (defun my-update-package (path) > >> > =A0 "Update the package in path from CVS" > >> > =A0 (cvs-update path nil) > >> > =A0 (shell-command (concat "touch `find " path " -name Makefile`")) > >> > =A0 (compile (concat "make -C " path))) > > >> > When the function is called, it seems to execute the shell-command a= nd > >> > compile lines before the finishing cvs-update line. How can I make > >> > this functional execution procedurally? Help me, please. > > >> > Thanks. > > >> -- > >> A + Thierry Volpiatto > >> Location: Saint-Cyr-Sur-Mer - France > > -- > A + Thierry Volpiatto > Location: Saint-Cyr-Sur-Mer - France