Re: unload server feature

[Dave Love]

I have the following.

Index: server.el
===================================================================
RCS file: /cvs/emacs/lisp/server.el,v
retrieving revision 1.69
diff -u -p -c -r1.69 server.el
cvs server: conflicting specifications of output style
*** server.el   2001/04/09 14:29:17     1.69
--- server.el   2001/04/10 17:39:26
*************** Prefix arg means just kill any existing 
*** 273,279 ****
--- 273,281 ----
                            (cons (list arg lineno)
                                  files))
                      (setq lineno 1)))))
+             (run-hooks 'pre-command-hook)
              (server-visit-files files client nowait)
+             (run-hooks 'post-command-hook)
              ;; CLIENT is now a list (CLIENTNUM BUFFERS...)
              (if (null (cdr client))
                  ;; This client is empty; get rid of it immediately.
*************** Arg NEXT-BUFFER is a suggestion; if it i
*** 528,533 ****
--- 530,540 ----
          (switch-to-buffer (other-buffer))))))
  
  (global-set-key "\C-x#" 'server-edit)
+ 
+ (defun server-unload-hook ()
+   (remove-hook 'kill-buffer-query-functions 
'server-kill-buffer-query-function)
+   (remove-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function)
+   (remove-hook 'kill-buffer-hook 'server-kill-buffer))
  
  (provide 'server)