Re: elisp: `quit-process' and `sleep-for'

[Jeff Clough]

Memnon Anon <gegendosenfleisch@googlemail.com> writes:

> Hi,
>
> I am having trouble with this function: 
>
> (defun set_timer (rtcopt value)
> ; [...]
>
> (start-process "alarmclock-mp3" nil "/usr/bin/mplayer" "-quiet" music)
>
> (while (y-or-n-p "Snooze?")
>       (when (get-process "alarmclock-mp3")
>         (quit-process "alarmclock-mp3")
> ;        (debug)
>         (sleep-for 100000)
>         (sleep-for 5))
>       (start-process "alarmclock-mp3" nil "/usr/bin/mplayer" "-quiet" music))
> (kill-emacs))

As a point of comparison, does this work as intended if you use
delete-process instead of quit-process?

Jeff