Function: spawn-shell.

This commit is contained in:
MitchMarq42 2022-08-11 06:25:28 -08:00
parent 258eab7edb
commit 7cc736abfa

View File

@ -113,6 +113,12 @@ For instance:
For use with `vterm'." For use with `vterm'."
(setq default-directory path)) (setq default-directory path))
;; reference: https://stackoverflow.com/questions/4114577/how-do-i-define-an-emacs-lisp-function-to-spawn-a-shell-buffer-with-a-particular
(defun spawn-shell (name)
"Invoke shell test"
(interactive "MName of shell buffer to create: ")
(pop-to-buffer (get-buffer-create (generate-new-buffer-name name)))
(shell (current-buffer)))
;; This one line cost me over an hour of frustration... ;; This one line cost me over an hour of frustration...
(provide 'mitch-defuns) (provide 'mitch-defuns)