Re: How to defun body in procedural manner

[thierry.volpiatto@gmail.com]

Kiwon Um <um.kiwon@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..)

>> 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