> Instead of this, all calls could add
> a special tag:
>
> (pop-to-buffer "*inferior-lisp*" '(nil (comint . t)))
>
> Then a condition predicate could check for this tag:
>
> (defun display-buffer-comint (buffer-name action)
> (assq 'comint action))
>
> and the user can customize all comint commands with:
>
> (add-to-list 'display-buffer-alist
> '(display-buffer-comint
> (display-buffer-same-window
> . ((reusable-frames . 0)
> (inhibit-same-window . nil)))))
If we do that we should first make a list of possible tags like 'occur'
or 'info' and check whether we should provide similar functions for them
too.