Skip to content

Commit

Permalink
(&erl-group-leader-loop): Make *erl-output* a plain Emacs buffer
Browse files Browse the repository at this point in the history
created on demand. Previously it was actually the Distel group leader
process and so it was bad to kill it (now it's fine).
  • Loading branch information
lukeg committed Oct 27, 2004
1 parent 15b9497 commit 2ed4b08
Showing 1 changed file with 8 additions and 7 deletions.
15 changes: 8 additions & 7 deletions lib/distel/elisp/erl.el
Expand Up @@ -622,18 +622,19 @@ during the next `erl-schedule'."
((['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))))

0 comments on commit 2ed4b08

Please sign in to comment.