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

9f803d0d · Richard M. Stallman · 99ac138a · 9f803d0d
Commit 9f803d0d authored Oct 02, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/dired-aux.el lisp/dired-aux.el +2 -1

No files found.
--- 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))))