diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-08-04 04:09:07 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-08-04 04:09:07 +0000 |
| commit | 0b030df78b499fde5f8dd3f20dd24a2e002fe4ee (patch) | |
| tree | ed9cb2a60f8d627b3d7467bd8610533339e8e528 /lisp/lpr.el | |
| parent | 29929437a388ae7dc43fab9f1a9f002162eb4348 (diff) | |
| download | emacs-0b030df78b499fde5f8dd3f20dd24a2e002fe4ee.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/lpr.el')
| -rw-r--r-- | lisp/lpr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/lpr.el b/lisp/lpr.el index 5dad2f86c0c..52f5abc5220 100644 --- a/lisp/lpr.el +++ b/lisp/lpr.el @@ -76,7 +76,7 @@ See definition of `print-region-1' for calling conventions.") (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 @@ See definition of `print-region-1' for calling conventions.") ;; 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*")) |