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 | d822e0eedf0ca4c60681b94b0f810370f8e603d4 (patch) | |
| tree | 8530827bf0225f73355880338332f822e8f2b7d9 /lisp/lpr.el | |
| parent | 7d7aa5b6c79c64e62475ed5249ffd286d2ec94e8 (diff) | |
| download | emacs-d822e0eedf0ca4c60681b94b0f810370f8e603d4.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*")) |