branch: externals/hyperbole
commit bdd0ab0be74bad3083057322a1abf669ee2c1c67
Author: Mats Lidell <[email protected]>
Commit: Mats Lidell <[email protected]>
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)
