branch: elpa/bash-completion
commit f085c41d8d9a3e9bfc091209b33128b84d0ee163
Author: Svend Sorensen <[email protected]>
Commit: Svend Sorensen <[email protected]>
Add defcustom for bash-completion-args
This allows passing custom flags, such as `--login`, to BASH.
---
bash-completion.el | 16 +++++++++++-----
1 file changed, 11 insertions(+), 5 deletions(-)
diff --git a/bash-completion.el b/bash-completion.el
index 93bd540150..43931dc19d 100644
--- a/bash-completion.el
+++ b/bash-completion.el
@@ -166,6 +166,11 @@ for command-line completion."
:type '(file :must-match t)
:group 'bash-completion)
+(defcustom bash-completion-args '("--noediting")
+ "Args passed to the BASH shell."
+ :type '(repeat (string :tag "Argument"))
+ :group 'bash-completion)
+
(defcustom bash-completion-process-timeout 2.5
"Number of seconds to wait for an answer from bash.
If bash takes longer than that to answer, the answer will be
@@ -874,11 +879,12 @@ is set to t."
(setenv "EMACS_BASH_COMPLETE" "t")
(setenv "TERM" "dumb")
(setq process
- (start-process
- "*bash-completion*"
- (generate-new-buffer-name " bash-completion")
- bash-completion-prog
- "--noediting"))
+ (apply 'start-process
+ (append
+ `("*bash-completion*"
+ ,(generate-new-buffer-name " bash-completion")
+ ,bash-completion-prog)
+ bash-completion-args)))
(set-process-query-on-exit-flag process nil)
(let* ((shell-name (file-name-nondirectory bash-completion-prog))
(startfile1 (concat "~/.emacs_" shell-name ".sh"))
