Re: [spr4653] using the cl-emacs connection

[layer@franz.com (Kevin Layer)]

I found an easy hack that implements the feature you desire.

First, this will only work in ACL 4.1 final (due out in the next month
or so).

Define this in Emacs:

(defun fi:ed-quit ()
  (interactive)
  (fi::pop-metadot-session))

Then, in ACL do this:

user(9): (defun ed-wait (symbol)
	   (let ((process (ed symbol)))
	     (mp:process-wait "for ED to complete"
			      #'(lambda (process)
				  (null (mp:process-stack-group process)))
			      process)))
ed-wait

user(10): (ed-wait 'foo)
;; now, edit FOO and type ``M-x fi:ed-quit'' when done.  This will
;; cause ED-WAIT to return:
nil


Let me know if you need further assistance.

Kevin Layer, Franz Inc.         1995 University Avenue, Suite 275
layer@Franz.COM (internet)      Berkeley, CA  94704
uunet!franz!layer (uucp)        Phone: (510) 548-3600; FAX: (510) 548-8253