Mercurial > emacs
comparison lisp/shell.el @ 73379:b6d2149f9903
2006-10-15 Lennart Borgman <lennart.borgman.073@student.lu.se>
(explicit-bash-args): Use shell-quote-argument.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Sun, 15 Oct 2006 20:42:10 +0000 |
parents | 194b79b77de3 |
children | b2e5081b9320 7eeafaaa9eab |
comparison
equal
deleted
inserted
replaced
73378:3eb6ddcc34d3 | 73379:b6d2149f9903 |
---|---|
296 ;; process-send-eof cannot terminate bash if we use it. | 296 ;; process-send-eof cannot terminate bash if we use it. |
297 (if (and (not purify-flag) | 297 (if (and (not purify-flag) |
298 (equal name "bash") | 298 (equal name "bash") |
299 (file-executable-p prog) | 299 (file-executable-p prog) |
300 (string-match "bad option" | 300 (string-match "bad option" |
301 (shell-command-to-string (concat prog " --noediting")))) | 301 (shell-command-to-string |
302 (concat (shell-quote-argument prog) | |
303 " --noediting")))) | |
302 '("-i") | 304 '("-i") |
303 '("--noediting" "-i"))) | 305 '("--noediting" "-i"))) |
304 "Args passed to inferior shell by \\[shell], if the shell is bash. | 306 "Args passed to inferior shell by \\[shell], if the shell is bash. |
305 Value is a list of strings, which may be nil." | 307 Value is a list of strings, which may be nil." |
306 :type '(repeat (string :tag "Argument")) | 308 :type '(repeat (string :tag "Argument")) |