Xref: utzoo gnu.emacs.announce:2 comp.emacs:9242
Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!tut.cis.ohio-state.edu!WUBIOS.WUSTL.EDU!david
From: david@WUBIOS.WUSTL.EDU (David J. Camp)
Newsgroups: gnu.emacs.announce,comp.emacs
Subject: elm and emacs addendum for server mode
Message-ID: <9010110225.AA05884@wubios.wustl.edu>
Date: 11 Oct 90 02:25:14 GMT
Sender: foulk@tut.cis.ohio-state.edu
Followup-To: gnu.emacs.announce
Distribution: gnu
Organization: Gnus Not Usenet
Lines: 33
Approved: info-gnu-emacs@prep.ai.mit.edu

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)
!