[elpa] externals/hyperbole bdd0ab0 02/21: Use shell with buf-name for creating the Hyperbole Shell

[Stefan Monnier]

branch: externals/hyperbole
commit bdd0ab0be74bad3083057322a1abf669ee2c1c67
Author: Mats Lidell <address@hidden>
Commit: Mats Lidell <address@hidden>

    Use shell with buf-name for creating the Hyperbole Shell
---
 hactypes.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/hactypes.el b/hactypes.el
index c0b6f82..174b4d0 100644
--- a/hactypes.el
+++ b/hactypes.el
@@ -128,7 +128,7 @@ kill the last output to the shell buffer before executing 
SHELL-CMD."
                (hpath:display-buffer (current-buffer))
                (if (eq (minibuffer-window) (selected-window))
                    (other-window 1))
-               (shell) (rename-buffer buf-name)
+               (shell buf-name)
                (setq comint-last-input-start (point-marker)
                      comint-last-input-end (point-marker))))
          (hpath:display-buffer buf-name)
@@ -163,13 +163,11 @@ kill the last output to the shell buffer before executing 
SHELL-CMD."
          (save-excursion
            (save-window-excursion
              (cond ((fboundp 'new-shell) (new-shell))
-                   (t (shell)))
-             (setq shell-buf (current-buffer))))
+                   (t (shell buf-name)))))
          (message msg)
          ;; Wait for shell to startup before sending it input.
          (sit-for 1)
-         (set-buffer shell-buf)
-         (rename-buffer buf-name)
+         (set-buffer buf-name)
          (setq comint-last-input-start (point-marker)
                comint-last-input-end (point-marker)))
        (or (equal (buffer-name (current-buffer)) buf-name)