Mercurial > emacs
comparison lisp/shell.el @ 73308:194b79b77de3
Comment change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 09 Oct 2006 15:08:41 +0000 |
| parents | 2b23d84b802a |
| children | b6d2149f9903 8dd8c8286063 |
comparison
equal
deleted
inserted
replaced
| 73307:719af03ef247 | 73308:194b79b77de3 |
|---|---|
| 286 :group 'shell) | 286 :group 'shell) |
| 287 | 287 |
| 288 ;; Note: There are no explicit references to the variable `explicit-bash-args'. | 288 ;; Note: There are no explicit references to the variable `explicit-bash-args'. |
| 289 ;; It is used implicitly by M-x shell when the interactive shell is `bash'. | 289 ;; It is used implicitly by M-x shell when the interactive shell is `bash'. |
| 290 (defcustom explicit-bash-args | 290 (defcustom explicit-bash-args |
| 291 ;; Tell bash not to use readline, except for bash 1.x which doesn't grook --noediting. | |
| 292 ;; Bash 1.x has -nolineediting, but process-send-eof cannot terminate bash if we use it. | |
| 293 (let* ((prog (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name) | 291 (let* ((prog (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name) |
| 294 (getenv "ESHELL") shell-file-name)) | 292 (getenv "ESHELL") shell-file-name)) |
| 295 (name (file-name-nondirectory prog))) | 293 (name (file-name-nondirectory prog))) |
| 294 ;; Tell bash not to use readline, except for bash 1.x which | |
| 295 ;; doesn't grook --noediting. Bash 1.x has -nolineediting, but | |
| 296 ;; process-send-eof cannot terminate bash if we use it. | |
| 296 (if (and (not purify-flag) | 297 (if (and (not purify-flag) |
| 297 (equal name "bash") | 298 (equal name "bash") |
| 298 (file-executable-p prog) | 299 (file-executable-p prog) |
| 299 (string-match "bad option" | 300 (string-match "bad option" |
| 300 (shell-command-to-string (concat prog " --noediting")))) | 301 (shell-command-to-string (concat prog " --noediting")))) |