diff options
| author | Paul Eggert | 2013-07-14 19:33:54 -0700 |
|---|---|---|
| committer | Paul Eggert | 2013-07-14 19:33:54 -0700 |
| commit | 0463c1ef26bf2d3dc3ea8a3de20e4446c1a55e64 (patch) | |
| tree | 2ac270452bdf6a1404d80c216b07cf3caaaa2e9f /lisp/shell.el | |
| parent | b43f6451c82dd67e54fd2c30eb54b1ea1236c6e6 (diff) | |
| download | emacs-0463c1ef26bf2d3dc3ea8a3de20e4446c1a55e64.tar.gz emacs-0463c1ef26bf2d3dc3ea8a3de20e4446c1a55e64.zip | |
* shell.el (explicit-bash-args): Remove obsolete hack for Bash 1.x.
The hack didn't work outside English locales anyway.
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 51a0ffc4fe8..a78ab7f81ab 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -284,21 +284,9 @@ Value is a list of strings, which may be nil." | |||
| 284 | ;; Note: There are no explicit references to the variable `explicit-bash-args'. | 284 | ;; Note: There are no explicit references to the variable `explicit-bash-args'. |
| 285 | ;; It is used implicitly by M-x shell when the interactive shell is `bash'. | 285 | ;; It is used implicitly by M-x shell when the interactive shell is `bash'. |
| 286 | (defcustom explicit-bash-args | 286 | (defcustom explicit-bash-args |
| 287 | (let* ((prog (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name) | 287 | ;; Tell bash not to use readline. It's safe to assume --noediting now, |
| 288 | (getenv "ESHELL") shell-file-name)) | 288 | ;; as it was introduced in 1996 in Bash version 2. |
| 289 | (name (file-name-nondirectory prog))) | 289 | '("--noediting" "-i") |
| 290 | ;; Tell bash not to use readline, except for bash 1.x which | ||
| 291 | ;; doesn't grok --noediting. Bash 1.x has -nolineediting, but | ||
| 292 | ;; process-send-eof cannot terminate bash if we use it. | ||
| 293 | (if (and (not purify-flag) | ||
| 294 | (equal name "bash") | ||
| 295 | (file-executable-p prog) | ||
| 296 | (string-match "bad option" | ||
| 297 | (shell-command-to-string | ||
| 298 | (concat (shell-quote-argument prog) | ||
| 299 | " --noediting")))) | ||
| 300 | '("-i") | ||
| 301 | '("--noediting" "-i"))) | ||
| 302 | "Args passed to inferior shell by \\[shell], if the shell is bash. | 290 | "Args passed to inferior shell by \\[shell], if the shell is bash. |
| 303 | Value is a list of strings, which may be nil." | 291 | Value is a list of strings, which may be nil." |
| 304 | :type '(repeat (string :tag "Argument")) | 292 | :type '(repeat (string :tag "Argument")) |