Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!rutgers!sri-spam!mordor!lll-tis!ptsfa!ihnp4!chinet!nucsrl!lius
From: lius@nucsrl.UUCP (Sying-Syang Liu)
Newsgroups: comp.emacs
Subject: Multiple shells
Message-ID: <3910008@nucsrl.UUCP>
Date: Mon, 25-May-87 03:24:34 EDT
Article-I.D.: nucsrl.3910008
Posted: Mon May 25 03:24:34 1987
Date-Received: Thu, 28-May-87 03:27:31 EDT
Organization: Northwestern U, Evanston IL, USA
Lines: 12

To get a new shell (with an arbitrary buffer name) 
or switch to an old buffer (shell) if it exists.

;----------------------- C u t   H e r e -----------------------------
(defun mshell (buffer-name)
  (interactive "sBuffer name for this shell: ") 
  (cond ((get-buffer buffer-name) (switch-to-buffer buffer-name))
        (t (shell) (rename-buffer buffer-name))))

;----------------------------------------------------------------------
Sying-Syang Liu, Northwestern University, Computer Science Research Lab
UUCP:  {gargoyle,ihnp4,chinet}!nucsrl!lius