Commit 9f803d0d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(dired-do-print): Put spaces between lpr switches.

parent 99ac138a
......@@ -164,7 +164,8 @@ Uses the shell command coming from variables `lpr-command' and
(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))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment