gnuserv-running-p doesn't really implement what its documentation says
it does. If the process was started, but has since died, it probably
still returns non-nil.
(defun gnuserv-running-p ()
"Return non-nil if a gnuserv process is running from this XEmacs session."
(and (not (not gnuserv-process))
(eq (process-status gnuserv-process) 'run)))
By the way, is the
(not (not gnuserv-process))
really necessary in the existing version. I guess this makes the
function return t instead of a process-handle, but the documentation
only says it returns non-nil...
[By the way, sorry I'm not on the list, so please copy me on
replies...]
peace & happiness,
martin