Commit e831604d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

dired-do-print handles printer-name

* dired-aux.el (dired-do-print): Handle printer-name.
parent a574edbe
2014-01-02 Richard Stallman <>
* 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.
......@@ -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))
(if (and (stringp printer-name)
(string< "" printer-name))
(cons (concat lpr-printer-switch printer-name)
(command (dired-mark-read-string
"Print %s with: "
(mapconcat 'identity
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment