Mercurial > emacs

comparison lisp/subr.el @ 86221:d6b46513e321

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(w32-shell-dos-semantics): Declare as function.
author Glenn Morris <rgm@gnu.org>
date Mon, 19 Nov 2007 00:09:48 +0000
parents e8cb5c919219
children 5a317f281e6c
comparison
equal deleted inserted replaced
86220:1244ab609a99 86221:d6b46513e321
2116 a system-dependent default device name is used." 2116 a system-dependent default device name is used."
2117 (if (fboundp 'play-sound-internal) 2117 (if (fboundp 'play-sound-internal)
2118 (play-sound-internal sound) 2118 (play-sound-internal sound)
2119 (error "This Emacs binary lacks sound support"))) 2119 (error "This Emacs binary lacks sound support")))
2120 2120
2121 (declare-function w32-shell-dos-semantics "w32-fns" nil)
2122
2121 (defun shell-quote-argument (argument) 2123 (defun shell-quote-argument (argument)
2122 "Quote an argument for passing as argument to an inferior shell." 2124 "Quote an argument for passing as argument to an inferior shell."
2123 (if (or (eq system-type 'ms-dos) 2125 (if (or (eq system-type 'ms-dos)
2124 (and (eq system-type 'windows-nt) (w32-shell-dos-semantics))) 2126 (and (eq system-type 'windows-nt) (w32-shell-dos-semantics)))
2125 ;; Quote using double quotes, but escape any existing quotes in 2127 ;; Quote using double quotes, but escape any existing quotes in