/[emacs]/emacs/lisp/shell.el
ViewVC logotype

Diff of /emacs/lisp/shell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.116 by rms, Sat Oct 26 22:42:12 2002 UTC revision 1.117 by kfstorm, Thu Oct 31 23:37:15 2002 UTC
# Line 276  Value is a list of strings, which may be Line 276  Value is a list of strings, which may be
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"))

Legend:
Removed from v.1.116  
changed lines
  Added in v.1.117

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26