martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(dired-shell-stuff-it): Use shell-quote-argument.

Browse Source 
(dired-shell-quote): Function deleted.
This commit is contained in:
Richard M. Stallman
1998-03-16 01:35:04 +00:00
parent e0c0ed58af
commit 9a79e9aebe
1 changed files with 2 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/dired-aux.el
View File

@@ -292,18 +292,6 @@ with a prefix argument."
(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 @@ output files usually are created there instead of in a subdir."
(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)))