Mercurial > hg > xemacs-beta

comparison lisp/printer.el @ 4558:d9fcb5442c95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Automated merge with file:/Sources/xemacs-21.5-checked-out
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 21 May 2008 21:47:42 +0200
parents 554b9d31e7a5
children 308d34e9f07d
comparison
equal deleted inserted replaced
4557:790bd95b84c1 4558:d9fcb5442c95
261 (interactive (list nil (not current-prefix-arg))) 261 (interactive (list nil (not current-prefix-arg)))
262 (condition-case err 262 (condition-case err
263 (let* ((print-region (and (interactive-p) (region-active-p))) 263 (let* ((print-region (and (interactive-p) (region-active-p)))
264 (start (if print-region (region-beginning) (point-min buffer))) 264 (start (if print-region (region-beginning) (point-min buffer)))
265 (end (if print-region (region-end) (point-max buffer)))) 265 (end (if print-region (region-end) (point-max buffer))))
266 (if (or (not (valid-specifier-tag-p 'msprinter)) 266 (if (or (not (valid-device-type-p 'msprinter))
267 (not display-print-dialog)) 267 (not display-print-dialog))
268 (generic-print-region start end buffer) 268 (generic-print-region start end buffer)
269 (let* ((d (Printer-get-device)) 269 (let* ((d (Printer-get-device))
270 (props (make-dialog-box 'print :device d 270 (props (make-dialog-box 'print :device d
271 :allow-selection print-region 271 :allow-selection print-region
310 from-page First page to print, 1-based. If omitted, printing starts from 310 from-page First page to print, 1-based. If omitted, printing starts from
311 the beginning. 311 the beginning.
312 to-page Last page to print, inclusive, If omitted, printing ends at 312 to-page Last page to print, inclusive, If omitted, printing ends at
313 the end. 313 the end.
314 copies Number of copies to print. If omitted, one copy is printed." 314 copies Number of copies to print. If omitted, one copy is printed."
315 (cond ((valid-specifier-tag-p 'msprinter) 315 (cond ((valid-device-type-p 'msprinter)
316 ;; loop, printing one copy of document per loop. kill and 316 ;; loop, printing one copy of document per loop. kill and
317 ;; re-create the frame each time so that we eject the piece 317 ;; re-create the frame each time so that we eject the piece
318 ;; of paper at the end even if we're printing more than one 318 ;; of paper at the end even if we're printing more than one
319 ;; page per sheet of paper. 319 ;; page per sheet of paper.
320 (let ((copies (plist-get props 'copies 1)) 320 (let ((copies (plist-get props 'copies 1))