diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-02 08:35:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-02 08:35:34 +0000 |
| commit | d14e1b33df98a7793ba8fb19ba5a392904c7a473 (patch) | |
| tree | 41cee9a8b5260cf14ae2cc7e0f8e236d15a3bf8b /lisp | |
| parent | b4eb20c4d7cce60f1167f7b6ec6967f76b3a0d78 (diff) | |
| download | emacs-d14e1b33df98a7793ba8fb19ba5a392904c7a473.tar.gz | |
(dired-do-print): Put spaces between lpr switches.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/dired-aux.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 1e277040412..faf69620148 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -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)))) |