diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-02-09 06:34:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-02-09 06:34:50 +0000 |
| commit | 5bbf28a8ac8c6b96fb98e646e23a7e0d8cf77190 (patch) | |
| tree | d0b5840243cfba9f43aa1e11214b596ac59c7fdd /lisp/lpr.el | |
| parent | a681b2a1c52951c661b68a52c1ec8f76aa969238 (diff) | |
| download | emacs-5bbf28a8ac8c6b96fb98e646e23a7e0d8cf77190.tar.gz emacs-5bbf28a8ac8c6b96fb98e646e23a7e0d8cf77190.tar.bz2 emacs-5bbf28a8ac8c6b96fb98e646e23a7e0d8cf77190.zip | |
(print-region-1): Include print options in echo area msgs.
Diffstat (limited to 'lisp/lpr.el')
| -rw-r--r-- | lisp/lpr.el | 27 |
1 files changed, 18 insertions, 9 deletions
diff --git a/lisp/lpr.el b/lisp/lpr.el index e331060e9b9..33acdfe32e6 100644 --- a/lisp/lpr.el +++ b/lisp/lpr.el @@ -93,9 +93,22 @@ See definition of `print-region-1' for calling conventions.") ;; and it seems to annoying to do for that MIPS system. (let ((name (concat (buffer-name) " Emacs buffer")) (title (concat (buffer-name) " Emacs buffer")) - (width tab-width)) + (width tab-width) + switch-string) (save-excursion - (message "Spooling...") + (if page-headers + (if lpr-headers-switches + ;; It is possible to use an lpr option + ;; to get page headers. + (setq switches (append (if (stringp lpr-headers-switches) + (list lpr-headers-switches) + lpr-headers-switches) + switches)))) + (setq switch-string + (if switches (concat " with options " + (mapconcat 'identity switches " ")) + "")) + (message "Spooling%s..." switch-string) (if (/= tab-width 8) (let ((new-coords (print-region-new-buffer start end))) (setq start (car new-coords) end (cdr new-coords)) @@ -106,12 +119,8 @@ See definition of `print-region-1' for calling conventions.") (untabify (point-min) (point-max)))) (if page-headers (if lpr-headers-switches - ;; It is possible to use an lpr option - ;; to get page headers. - (setq switches (append (if (stringp lpr-headers-switches) - (list lpr-headers-switches) - lpr-headers-switches) - switches)) + ;; We handled this above by modifying SWITCHES. + nil ;; Run a separate program to get page headers. (let ((new-coords (print-region-new-buffer start end))) (setq start (car new-coords) end (cdr new-coords))) @@ -132,7 +141,7 @@ See definition of `print-region-1' for calling conventions.") switches))) (if (markerp end) (set-marker end nil)) - (message "Spooling...done")))) + (message "Spooling%s...done" switch-string)))) ;; This function copies the text between start and end ;; into a new buffer, makes that buffer current. |