home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / multishell.el < prev    next >
Encoding:
Text File  |  1991-08-04  |  3.7 KB  |  96 lines
  1. ; Path: dg-rtp!rock!mcnc!stanford.edu!snorkelwacker.mit.edu!spool.mu.edu!think.com!compass!worley
  2. ; From: worley@compass.com (Dale Worley)
  3. ; Newsgroups: gnu.emacs.help,comp.emacs,gnu.emacs.sources
  4. ; Subject: Re: multiple concurrent emacs shells?
  5. ; Date: 22 Jul 91 15:10:56 GMT
  6. ; Organization: Compass, Inc., Wakefield, MA, U.S.A.
  7. ; 
  8. ; In article <1991Jul20.014343.11662@milton.u.washington.edu> narf@milton.u.washington.edu (Francis Taylor) writes:
  9. ;    Does anyone out there know of any way to have multiple running shells
  10. ;    in one emacs session?
  11. ; 
  12. ; This is the code I use.  Then you can create new shells with C-u - M-x
  13. ; shell, and select existing shells with C-u (number) M-x shell.  M-x
  14. ; shell works as before, and creates shell number 1 if it doesn't
  15. ; already exist.
  16.  
  17. ;; LCD Archive Entry:
  18. ;; multishell|Dale Worley|worley@compass.com
  19. ;; |Multiple shell buffers
  20. ;; |91-07-22||~/functions/multishell.el.Z|
  21.  
  22. (defun shell (&optional shell-number)
  23.   "Run an inferior shell, with I/O through buffer *shell*.
  24. If buffer exists but shell process is not running, make new shell.
  25. Program used comes from variable explicit-shell-file-name,
  26.  or (if that is nil) from the ESHELL environment variable,
  27.  or else from SHELL if there is no ESHELL.
  28. If a file ~/.emacs_SHELLNAME exists, it is given as initial input.
  29. It is particularly useful to have this file set the environment
  30. variable 'PAGER' to the value 'cat'.
  31.  (Note that this may lose due to a timing error if the shell
  32.   discards input when it starts up.)
  33. The buffer is put in shell-mode, giving commands for sending input
  34. and controlling the subjobs of the shell.  See shell-mode.
  35. See also variable shell-prompt-pattern.
  36.  
  37. The shell file name (sans directories) is used to make a symbol name
  38. such as `explicit-csh-arguments'.  If that symbol is a variable,
  39. its value is used as a list of arguments when invoking the shell.
  40. Otherwise, one argument `-i' is passed to the shell.
  41.  
  42. Note that many people's .cshrc files unconditionally clear the prompt.
  43. If yours does, you will probably want to change it.
  44.  
  45. A negative argument causes further shell windows (*shell<2>*,
  46. *shell<3>*, etc.) to be created.  A positive argument causes the shell
  47. window with that number to be selected, instead of *shell* (which is
  48. number 1).  Shells with numbers > 1 must be created explicitly; shell
  49. 1 is created automatically if it is selected but does not already
  50. exist."
  51.   (interactive "p")
  52.   (let* ((prog (or explicit-shell-file-name
  53.            (getenv "ESHELL")
  54.            (getenv "SHELL")
  55.            "/bin/sh"))             
  56.      (name (file-name-nondirectory prog))
  57.      (dont nil)
  58.      shell-name)
  59.     ;; process the user argument
  60.     (cond
  61.      ;; a null argument is the same as 1
  62.      ((null shell-number)
  63.       (setq shell-number 1))
  64.      ;; a negative argument means find a new shell number
  65.      ((< shell-number 1)
  66.       (progn
  67.     (setq shell-number 2)
  68.     (while
  69.         (get-buffer (concat "*shell<" (int-to-string shell-number) ">*"))
  70.       (setq shell-number (1+ shell-number)))))
  71.      ;; if he's trying to select a shell > 1, check to see if it exists first
  72.      ((> shell-number 1)
  73.       (if (null (get-buffer (concat "*shell<" 
  74.                     (int-to-string shell-number)
  75.                     ">*")))
  76.       (progn
  77.         (ding)
  78.         (setq dont t)))))
  79.     ;; if we haven't found an error, do it
  80.     (if (not dont)
  81.     (progn
  82.       (setq shell-name (if (eq shell-number 1)
  83.                    "shell"
  84.                  (concat "shell<" 
  85.                      (int-to-string shell-number)
  86.                      ">")))
  87.       (switch-to-buffer
  88.        (apply 'make-shell shell-name prog
  89.           (if (file-exists-p (concat "~/.emacs_" name))
  90.               (concat "~/.emacs_" name))
  91.           (let ((symbol (intern-soft
  92.                  (concat "explicit-" name "-args"))))
  93.             (if (and symbol (boundp symbol))
  94.             (symbol-value symbol)
  95.               '("-i")))))))))
  96.