aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/shell.el
diff options
context:
space:
mode:
authorPaul Eggert2013-07-14 19:33:54 -0700
committerPaul Eggert2013-07-14 19:33:54 -0700
commit0463c1ef26bf2d3dc3ea8a3de20e4446c1a55e64 (patch)
tree2ac270452bdf6a1404d80c216b07cf3caaaa2e9f /lisp/shell.el
parentb43f6451c82dd67e54fd2c30eb54b1ea1236c6e6 (diff)
downloademacs-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.el18
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.
303Value is a list of strings, which may be nil." 291Value is a list of strings, which may be nil."
304 :type '(repeat (string :tag "Argument")) 292 :type '(repeat (string :tag "Argument"))