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 | 1e04499bf5578870454559126422e194b793a0ee (patch) | |
| tree | 0f4cb35276395f9e515ff6ae80772ebff396cb40 /lisp/lpr.el | |
| parent | 97bc3ff9948f2d5a57181393be7a04b620c1eb7b (diff) | |
| download | emacs-1e04499bf5578870454559126422e194b793a0ee.tar.gz | |
(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. |