Re: How to defun body in procedural manner

[Kiwon Um]

On Apr 17, 9:51 pm, thierry.volpia...@gmail.com wrote:
> Kiwon Um <um.ki...@gmail.com> writes:
> > On Apr 17, 2:52 pm, 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 ==> return_what_you_want)
> >>   (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 compile
> it:
>
> (defun update-cvs-dir-and-compile ()
>   (interactive)
>   (let ((dir default-directory))
>     (cvs-update dir nil)
>     (while (not (equal cvs-mode-line-process "exit"))
>       (sit-for 1))
>     (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 <um.ki...@gmail.com> writes:
> >> > Hello. I wrote a function as follows:
>
> >> > (defun my-update-package (path)
> >> >   "Update the package in path from CVS"
> >> >   (cvs-update path nil)
> >> >   (shell-command (concat "touch `find " path " -name Makefile`"))
> >> >   (compile (concat "make -C " path)))
>
> >> > When the function is called, it seems to execute the shell-command and
> >> > 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