276 |
:group 'shell) |
:group 'shell) |
277 |
|
|
278 |
(defcustom explicit-bash-args |
(defcustom explicit-bash-args |
279 |
;; Tell bash not to use readline. |
;; Tell bash not to use readline, except for bash 1.x which doesn't grook --noediting. |
280 |
'("--noediting" "-i") |
;; Bash 1.x has -nolineediting, but process-send-eof cannot terminate bash if we use it. |
281 |
|
(let* ((prog (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name) |
282 |
|
(getenv "ESHELL") shell-file-name)) |
283 |
|
(name (file-name-nondirectory prog))) |
284 |
|
(if (and (not purify-flag) |
285 |
|
(equal name "bash") |
286 |
|
(file-executable-p prog) |
287 |
|
(string-match "bad option" |
288 |
|
(shell-command-to-string (concat prog " --noediting")))) |
289 |
|
'("-i") |
290 |
|
'("--noediting" "-i"))) |
291 |
"*Args passed to inferior shell by M-x shell, if the shell is bash. |
"*Args passed to inferior shell by M-x shell, if the shell is bash. |
292 |
Value is a list of strings, which may be nil." |
Value is a list of strings, which may be nil." |
293 |
:type '(repeat (string :tag "Argument")) |
:type '(repeat (string :tag "Argument")) |