Mercurial > emacs
diff lisp/lpr.el @ 922:52cd80cb5be1
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 04 Aug 1992 04:09:07 +0000 |
| parents | 20674ae6bf52 |
| children | 2fee5d1fe47e |
line wrap: on
line diff
--- a/lisp/lpr.el Tue Aug 04 02:36:45 1992 +0000 +++ b/lisp/lpr.el Tue Aug 04 04:09:07 1992 +0000 @@ -76,7 +76,7 @@ (if page-headers (if (eq system-type 'usg-unix-v) (progn - (print-region-new-buffer) + (print-region-new-buffer start end) (call-process-region start end "pr" t t nil)) ;; On BSD, use an option to get page headers. (setq switches (cons "-p" switches)))) @@ -92,7 +92,7 @@ ;; into a new buffer, makes that buffer current, ;; and sets start and end to the buffer bounds. ;; start and end are used free. -(defun print-region-new-buffer () +(defun print-region-new-buffer (start end) (or (string= (buffer-name) " *spool temp*") (let ((oldbuf (current-buffer))) (set-buffer (get-buffer-create " *spool temp*"))