Mercurial > emacs
comparison lisp/dired-aux.el @ 10982:e5942b624f45
(dired-do-print): Allow lpr-switches to be a string. Clean up.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 12 Mar 1995 18:38:20 +0000 |
| parents | dd2102e33b29 |
| children | b9376f3450bb |
comparison
equal
deleted
inserted
replaced
| 10981:54697b892d3a | 10982:e5942b624f45 |
|---|---|
| 162 `lpr-switches' as default." | 162 `lpr-switches' as default." |
| 163 (interactive "P") | 163 (interactive "P") |
| 164 (let* ((file-list (dired-get-marked-files t arg)) | 164 (let* ((file-list (dired-get-marked-files t arg)) |
| 165 (command (dired-mark-read-string | 165 (command (dired-mark-read-string |
| 166 "Print %s with: " | 166 "Print %s with: " |
| 167 (mapconcat 'concat (append (list lpr-command) | 167 (mapconcat 'identity |
| 168 lpr-switches) " ") | 168 (cons lpr-command |
| 169 (if (stringp lpr-switches) | |
| 170 (list lpr-switches) | |
| 171 lpr-switches)) | |
| 172 " ") | |
| 169 'print arg file-list))) | 173 'print arg file-list))) |
| 170 (dired-run-shell-command (dired-shell-stuff-it command file-list nil)))) | 174 (dired-run-shell-command (dired-shell-stuff-it command file-list nil)))) |
| 171 | 175 |
| 172 ;; Read arguments for a marked-files command that wants a string | 176 ;; Read arguments for a marked-files command that wants a string |
| 173 ;; that is not a file name, | 177 ;; that is not a file name, |