lang/sh: fix +sh/open-repl

This commit is contained in:
Henrik Lissner 2019-10-04 21:25:52 -04:00
parent 051bceb0a8
commit 661290e8d7
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -29,8 +29,10 @@
;;;###autoload
(defun +sh/open-repl ()
"Open a shell REPL."
(interactive)
(let* ((dest-sh (symbol-name sh-shell))
(sh-shell-file dest-sh))
(sh-shell-process t)
(with-current-buffer "*shell*"
(rename-buffer (format "*shell [%s]*" dest-sh)))))
(rename-buffer (format "*shell [%s]*" dest-sh))
(current-buffer))))