mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(dired-do-print): Allow lpr-switches to be a string. Clean up.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-03-12 18:38:20 +00:00
parent 9e983c7816
commit c572e732ae
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/dired-aux.el
View File

@ -164,8 +164,12 @@ 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: "
(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))))