(dired-do-print): Put spaces between lpr switches.
This commit is contained in:
parent
99ac138a9c
commit
9f803d0d12
1 changed files with 2 additions and 1 deletions
|
@ -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))))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue