Mercurial > emacs
comparison lisp/subr.el @ 86221:d6b46513e321
(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 |