diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-03-16 01:35:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-03-16 01:35:04 +0000 |
| commit | 9a79e9aebec5d0973be33ccd4232b40606915e51 (patch) | |
| tree | 749c3df469fadbf6ac50affd3f439bb9d4d4e398 /lisp/dired-aux.el | |
| parent | e0c0ed58af65d4e36ffceeb54bfb534c01c6843a (diff) | |
| download | emacs-9a79e9aebec5d0973be33ccd4232b40606915e51.tar.gz | |
(dired-shell-stuff-it): Use shell-quote-argument.
(dired-shell-quote): Function deleted.
Diffstat (limited to 'lisp/dired-aux.el')
| -rw-r--r-- | lisp/dired-aux.el | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 303eed96aed..6d0c3395777 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -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))) |