🚀 go-pugleaf

Hello World,

I have two asynchronous processes running under Epoch. I want these processes
terminated by a SIGINT signal when Epoch quits. Normally Epoch does this job
with a SIGHUP signal, but that one can't be used here. So I wrote the
following code.

(defun stop_send_to ()
   "This function is called from the kill-emacs-hook"
   (setq send_to_comm_running nil)
   (interrupt-process send_to_comm_proc)
   (delete-process send_to_comm_proc)
)

(defun stop_server ()
   "This function is called from the kill-emacs-hook"
   (setq epoch_server_running nil)
   (interrupt-process epoch_server_proc)
   (delete-process epoch_server_proc)
)

(defun stop_processes ()
   (stop_server)
   (stop_send_to)
)

(setq kill-emacs-hook 'stop_processes)

When typing C-x C-c the first call to (interrupt-process ...) gives an error
message "Process epoch_server_proc not active." and stop_server does not
return. What's wrong?


Thanks for all help,

Greetings, Huub.



-- 
CWI, P.O. Box 4079 			Huub Bakker (huub@cwi.nl)
1009 AB Amsterdam
The Netherlands
Tel. 31 20 5924080