# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 795033500 0
# Node ID e5942b624f45691177dbc91102b89873540f9ce9
# Parent  54697b892d3a61a6bc300dfdd8ecd094b126a689
(dired-do-print): Allow lpr-switches to be a string.  Clean up.

diff -r 54697b892d3a -r e5942b624f45 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Sun Mar 12 18:34:57 1995 +0000
+++ b/lisp/dired-aux.el	Sun Mar 12 18:38:20 1995 +0000
@@ -164,8 +164,12 @@
   (let* ((file-list (dired-get-marked-files t arg))
 	 (command (dired-mark-read-string
 		   "Print %s with: "
- 		   (mapconcat 'concat (append (list lpr-command)
- 					      lpr-switches) " ")
+ 		   (mapconcat 'identity
+			      (cons lpr-command
+				    (if (stringp lpr-switches)
+					(list lpr-switches)
+				      lpr-switches))
+			      " ")
 		   'print arg file-list)))
     (dired-run-shell-command (dired-shell-stuff-it command file-list nil))))