[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 43b7759b09: Allow giving switches to the program in `M-x term'
From: |
Lars Ingebrigtsen |
Subject: |
master 43b7759b09: Allow giving switches to the program in `M-x term' |
Date: |
Wed, 11 May 2022 11:10:43 -0400 (EDT) |
branch: master
commit 43b7759b093cb6b10dd0d4dcb2aff72212b6070d
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Allow giving switches to the program in `M-x term'
* lisp/term.el (term, ansi-term): Allow giving switches to the
program (bug#18105).
---
lisp/term.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/term.el b/lisp/term.el
index 54e19a3ea9..f81cbf7293 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -1581,7 +1581,8 @@ commands to use in that buffer.
(or explicit-shell-file-name
(getenv "ESHELL")
shell-file-name))))
- (set-buffer (make-term "terminal" program))
+ (let ((prog (split-string-shell-command program)))
+ (set-buffer (apply #'make-term "terminal" (car prog) nil (cdr prog))))
(term-char-mode)
(pop-to-buffer-same-window "*terminal*"))
@@ -4399,7 +4400,10 @@ and `C-x' being marked as a `term-escape-char'."
;; for now they have the *term-ansi-term*<?> form but we'll see...
(setq term-ansi-buffer-name (generate-new-buffer-name term-ansi-buffer-name))
- (setq term-ansi-buffer-name (term-ansi-make-term term-ansi-buffer-name
program))
+ (let ((prog (split-string-shell-command program)))
+ (setq term-ansi-buffer-name
+ (apply #'term-ansi-make-term term-ansi-buffer-name (car prog)
+ nil (cdr prog))))
(set-buffer term-ansi-buffer-name)
(term-mode)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 43b7759b09: Allow giving switches to the program in `M-x term',
Lars Ingebrigtsen <=