From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 4 Aug 2017 04:05:00 +0000 (-0400)
Subject: * lisp/shell.el (explicit-shell-file-name): Mention shell-file-name
X-Git-Tag: emacs-26.0.90~517^2~32
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=28e000435e1dfdc071cd4b68afe8514dcf9b3aa2;p=emacs.git

* lisp/shell.el (explicit-shell-file-name): Mention shell-file-name

* lisp/files.el (insert-directory): Don't hardcode "-c".
* lisp/term.el (term, ansi-term): Use shell-file-name.
---

diff --git a/lisp/files.el b/lisp/files.el
index 96647fb2626..89f6f9f44dc 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -6701,7 +6701,7 @@ normally equivalent short `-D' option is just passed on to
 			;; See eg dired-safe-switches-p.
 			(call-process
 			 shell-file-name nil t nil
-			 "-c"
+			 shell-command-switch
 			 (concat (if (memq system-type '(ms-dos windows-nt))
 				     ""
 				   "\\") ; Disregard Unix shell aliases!
diff --git a/lisp/shell.el b/lisp/shell.el
index c5e5cbbee7e..ea7f0beebb0 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -264,7 +264,9 @@ see the function `dirtrack-mode'."
   :group 'shell-directories)
 
 (defcustom explicit-shell-file-name nil
-  "If non-nil, is file name to use for explicitly requested inferior shell."
+  "If non-nil, is file name to use for explicitly requested inferior shell.
+When nil, such interactive shell sessions fallback to using either
+the shell specified in $ESHELL or in `shell-file-name'."
   :type '(choice (const :tag "None" nil) file)
   :group 'shell)
 
diff --git a/lisp/term.el b/lisp/term.el
index 063a6ea592f..5eb7b3e8ede 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -1354,8 +1354,7 @@ commands to use in that buffer.
   (interactive (list (read-from-minibuffer "Run program: "
 					   (or explicit-shell-file-name
 					       (getenv "ESHELL")
-					       (getenv "SHELL")
-					       "/bin/sh"))))
+					       shell-file-name))))
   (set-buffer (make-term "terminal" program))
   (term-mode)
   (term-char-mode)
@@ -4149,8 +4148,7 @@ the process.  Any more args are arguments to PROGRAM."
   (interactive (list (read-from-minibuffer "Run program: "
 					   (or explicit-shell-file-name
 					       (getenv "ESHELL")
-					       (getenv "SHELL")
-					       "/bin/sh"))))
+					       shell-file-name))))
 
   ;; Pick the name of the new buffer.
   (setq term-ansi-buffer-name