comparison lisp/printer.el @ 778:2923009caf47

[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 79940b592197
children 6504113e7c2d
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
1 ;;; printer.el --- support for hard-copy printing in XEmacs 1 ;;; printer.el --- support for hard-copy printing in XEmacs
2 2
3 ;; Copyright (C) 2000 Ben Wing. 3 ;; Copyright (C) 2000, 2002 Ben Wing.
4 ;; Copyright (C) 2000 Kirill Katsnelson. 4 ;; Copyright (C) 2000 Kirill Katsnelson.
5 5
6 ;; Maintainer: XEmacs Development Team 6 ;; Maintainer: XEmacs Development Team
7 ;; Keywords: printer, printing, internal, dumped 7 ;; Keywords: printer, printing, internal, dumped
8 8
225 (interactive) 225 (interactive)
226 (let* ((d (Printer-get-device)) 226 (let* ((d (Printer-get-device))
227 (props 227 (props
228 (condition-case err 228 (condition-case err
229 (make-dialog-box 'page-setup :device d 229 (make-dialog-box 'page-setup :device d
230 :properties default-msprinter-frame-plist) 230 :properties (declare-boundp
231 default-msprinter-frame-plist))
231 (error 232 (error
232 (Printer-clear-device) 233 (Printer-clear-device)
233 (signal (car err) (cdr err)))))) 234 (signal (car err) (cdr err))))))
234 (while props 235 (while props
235 (setq default-msprinter-frame-plist 236 (with-boundp 'default-msprinter-frame-plist
236 (plist-put default-msprinter-frame-plist (car props) (cadr props))) 237 (setq default-msprinter-frame-plist
238 (plist-put default-msprinter-frame-plist (car props)
239 (cadr props))))
237 (setq props (cddr props))))) 240 (setq props (cddr props)))))
238 241
239 (defun generic-print-buffer (&optional buffer display-print-dialog) 242 (defun generic-print-buffer (&optional buffer display-print-dialog)
240 "Print buffer BUFFER using a printing method appropriate to the O.S. being run. 243 "Print buffer BUFFER using a printing method appropriate to the O.S. being run.
241 Under Unix, `lpr' is normally used to spool out a no-frills version of the 244 Under Unix, `lpr' is normally used to spool out a no-frills version of the
348 ;; #### bogus! we need accessors for 351 ;; #### bogus! we need accessors for
349 ;; print-settings objects. 352 ;; print-settings objects.
350 :printer-name 353 :printer-name
351 (or (plist-get props 'name) 354 (or (plist-get props 'name)
352 printer-name 355 printer-name
353 (mswindows-get-default-printer)))) 356 (declare-fboundp
357 (mswindows-get-default-printer)
358 ))))
354 header-window 359 header-window
355 footer-window) 360 footer-window)
356 361
357 (when printer-page-header 362 (when printer-page-header
358 (let ((window-min-height 2)) 363 (let ((window-min-height 2))