Mercurial > emacs
changeset 9221:3cc865a9c0cf
(dired-do-print): Put spaces between lpr switches.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 02 Oct 1994 08:35:34 +0000 |
| parents | 8f05784959cc |
| children | b18f51df31b3 |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Sun Oct 02 04:03:32 1994 +0000 +++ b/lisp/dired-aux.el Sun Oct 02 08:35:34 1994 +0000 @@ -164,7 +164,8 @@ (let* ((file-list (dired-get-marked-files t arg)) (command (dired-mark-read-string "Print %s with: " - (apply 'concat lpr-command " " lpr-switches) + (mapconcat 'concat (append (list lpr-command) + lpr-switches) " ") 'print arg file-list))) (dired-run-shell-command (dired-shell-stuff-it command file-list nil))))