Mercurial > hg > xemacs-beta
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)) |