andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

dired-do-print handles printer-name

Browse source 
* dired-aux.el (dired-do-print): Handle printer-name.
This commit is contained in:
Richard M. Stallman 2014-01-02 17:35:00 -05:00
parent a574edbec9
commit e831604df6
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2014-01-02 Richard Stallman <rms@gnu.org>
* dired-aux.el (dired-do-print): Handle printer-name.
* mail/rmailmm.el (rmail-mime-message-p): Moved to rmail.el.
* mail/rmail.el (rmail-mime-message-p): Moved from rmailmm.el.
(rmail-epa-decrypt): Turn off mime processing.

6
lisp/dired-aux.el
View file

@ -415,6 +415,12 @@ Uses the shell command coming from variables `lpr-command' and
`lpr-switches' as default."
(interactive "P")
(let* ((file-list (dired-get-marked-files t arg))
(lpr-switches
(if (and (stringp printer-name)
(string< "" printer-name))
(cons (concat lpr-printer-switch printer-name)
lpr-switches)
lpr-switches))
(command (dired-mark-read-string
"Print %s with: "
(mapconcat 'identity