[comp.emacs] elm and emacs addendum for server mode

david@WUBIOS.WUSTL.EDU (David J. Camp) (10/11/90)

I forgot to include a change I made to server.el in my 'elm to
emacs integration' (elmacs) package.  It improves the operation
of C-X# when using elmacs.  Here it is.  -David-

david@wubios.wustl.edu                 ^        Mr. David J. Camp
david%wubios@wugate.wustl.edu        < * >      +1 314 382 0584
...!uunet!wugate!wubios!david          v
                                            "White light makes me stupid."

*** /usr/local/emacs/lisp/server.el	Thu Aug  4 18:38:06 1988
--- ./server.el	Wed Oct 10 03:40:51 1990
***************
*** 260,263 ****
  	(server-switch-buffer (nth 1 (car server-clients)))
        (switch-to-buffer (other-buffer)))))
  
! (global-set-key "\C-x#" 'server-edit)
--- 260,274 ----
  	(server-switch-buffer (nth 1 (car server-clients)))
        (switch-to-buffer (other-buffer)))))
  
! (defun client-exit ()
!     "exit emacsclient"
!     (interactive)
!     (let
!         ((client-buffer (current-buffer)))
!         (write-file (buffer-file-name client-buffer))
!         (kill-buffer client-buffer))
!     (switch-to-buffer (other-buffer))
!     (server-edit))
! 
! (define-key global-map "\C-X#" 'client-exit)
!