# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 890012104 0
# Node ID de9c2d924962760668fddbf2c5080434a2873fae
# Parent  15d4310cb9e738a613ed75e9ace5a2bf1294a765
(dired-shell-stuff-it): Use shell-quote-argument.
(dired-shell-quote): Function deleted.

diff -r 15d4310cb9e7 -r de9c2d924962 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Sat Mar 14 21:54:42 1998 +0000
+++ b/lisp/dired-aux.el	Mon Mar 16 01:35:04 1998 +0000
@@ -292,18 +292,6 @@
 		(insert dired-del-marker)))))
 
 ;;; Shell commands
-;;>>> install (move this function into simple.el)
-(defun dired-shell-quote (filename)
-  "Quote a file name for inferior shell (see variable `shell-file-name')."
-  ;; Quote everything except POSIX filename characters.
-  ;; This should be safe enough even for really weird shells.
-  (let ((result "") (start 0) end)
-    (while (string-match "[^-0-9a-zA-Z_./]" filename start)
-      (setq end (match-beginning 0)
-	    result (concat result (substring filename start end)
-			   "\\" (substring filename end (1+ end)))
-	    start (1+ end)))
-    (concat result (substring filename start))))
 
 (defun dired-read-shell-command (prompt arg files)
 ;;  "Read a dired shell command prompting with PROMPT (using read-string).
@@ -387,8 +375,8 @@
 			 (dired-replace-in-string "\\*" x command)))
 	   (function (lambda (x) (concat command " " x))))))
     (if on-each
-	(mapconcat stuff-it (mapcar 'dired-shell-quote file-list) ";")
-      (let ((fns (mapconcat 'dired-shell-quote
+	(mapconcat stuff-it (mapcar 'shell-quote-argument file-list) ";")
+      (let ((fns (mapconcat 'shell-quote-argument
 			    file-list dired-mark-separator)))
 	(if (> (length file-list) 1)
 	    (setq fns (concat dired-mark-prefix fns dired-mark-postfix)))