Mercurial > emacs
changeset 21186:de9c2d924962
(dired-shell-stuff-it): Use shell-quote-argument.
(dired-shell-quote): Function deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 16 Mar 1998 01:35:04 +0000 |
| parents | 15d4310cb9e7 |
| children | f072dd90378d |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 2 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- 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)))