Function: spawn-shell
.
This commit is contained in:
parent
258eab7edb
commit
7cc736abfa
@ -113,6 +113,12 @@ For instance:
|
||||
For use with `vterm'."
|
||||
(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...
|
||||
(provide 'mitch-defuns)
|
||||
|
Loading…
Reference in New Issue
Block a user