;;;; processes.el -- shut down processes at end
;;; Time-stamp: <2005-02-10 10:24:01 jcgs>

(mapcar (lambda (process)
	  (message "Process %S has status %S" process (process-status process))
	  ;; Have been getting "(error Process vr-dns is not a subprocess)" -- possibly killed as a side-effect of killing another one?
	  (if (processp process)
	      (kill-process process)))
	(process-list))

;;; end of processes.el