mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-10-02 08:35:34 +00:00
parent 99ac138a9c
commit 9f803d0d12
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/dired-aux.el
View File

@ -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))))