Function: spawn-shell
.
This commit is contained in:
parent
258eab7edb
commit
7cc736abfa
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user