jungerl/lib/distel/elisp erl.el,1.1,1.2

[Luke G. <lu...@us...>]

Update of /cvsroot/jungerl/jungerl/lib/distel/elisp
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31965/elisp

Modified Files:
	erl.el 
Log Message:
(&erl-group-leader-loop): Make *erl-output* a plain Emacs buffer
created on demand. Previously it was actually the Distel group leader
process and so it was bad to kill it (now it's fine).


Index: erl.el
===================================================================
RCS file: /cvsroot/jungerl/jungerl/lib/distel/elisp/erl.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- erl.el	25 Oct 2004 19:55:57 -0000	1.1
+++ erl.el	27 Oct 2004 17:46:51 -0000	1.2
@@ -622,18 +622,19 @@
       ((['put_chars s]
         (condition-case err
             (save-excursion
-              (save-selected-window
-                (if erl-popup-on-output
-                    (select-window (or (get-buffer-window (current-buffer))
-                                       (display-buffer (current-buffer)))))
-                (goto-char (point-max))
-                (insert s)))
+              (with-current-buffer (get-buffer-create "*erl-output*")
+                (save-selected-window
+                  (if erl-popup-on-output
+                      (select-window (or (get-buffer-window (current-buffer))
+                                         (display-buffer (current-buffer)))))
+                  (goto-char (point-max))
+                  (insert s))))
           (error (message "Error in group leader: %S" err)))))
     (&erl-group-leader-loop)))
 
 (when (null erl-group-leader)
   (setq erl-default-group-leader
         (erl-spawn
-          (rename-buffer "*erl-output*")
+          (erl-register 'group-leader)
           (&erl-group-leader-loop))))