Mercurial > hg > xemacs-beta

comparison lisp/printer.el @ 707:a307f9a2021d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-20 05:49:28 by andyp] sync with 21-4-6-windows
author andyp
date Thu, 20 Dec 2001 05:49:48 +0000
parents 666d73d6ac56
children 87c43a431742
comparison
equal deleted inserted replaced
706:c9bf82d465b5 707:a307f9a2021d
308 (cond ((valid-specifier-tag-p 'msprinter) 308 (cond ((valid-specifier-tag-p 'msprinter)
309 ;; loop, printing one copy of document per loop. kill and 309 ;; loop, printing one copy of document per loop. kill and
310 ;; re-create the frame each time so that we eject the piece 310 ;; re-create the frame each time so that we eject the piece
311 ;; of paper at the end even if we're printing more than one 311 ;; of paper at the end even if we're printing more than one
312 ;; page per sheet of paper. 312 ;; page per sheet of paper.
313 (let ((copies (plist-get props 'copies 1))) 313 (let ((copies (plist-get props 'copies 1))
314 ;; This is not relevant to printing and can mess up
315 ;; msprinter frame sizing
316 default-frame-plist)
314 (while (> copies 0) 317 (while (> copies 0)
315 (let (d f header-buffer footer-buffer) 318 (let (d f header-buffer footer-buffer)
316 (setq buffer (decode-buffer buffer)) 319 (setq buffer (decode-buffer buffer))
317 (unwind-protect 320 (unwind-protect
318 (with-current-buffer buffer 321 (with-current-buffer buffer
441 (and header-buffer (kill-buffer header-buffer)) 444 (and header-buffer (kill-buffer header-buffer))
442 (and footer-buffer (kill-buffer footer-buffer)))) 445 (and footer-buffer (kill-buffer footer-buffer))))
443 (setq copies (1- copies))))) 446 (setq copies (1- copies)))))
444 ((and (not (eq system-type 'windows-nt)) 447 ((and (not (eq system-type 'windows-nt))
445 (fboundp 'lpr-region)) 448 (fboundp 'lpr-region))
446 (lpr-region buffer)) 449 (lpr-region (point-min) (point-max)))
447 (t (error "No print support available")))) 450 (t (error "No print support available"))))