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"))