"Generic printing support."
:group 'wp)
-(defcustom printer-name nil ; "Okidata OL610e/PS PostScript"
+(defcustom printer-name nil
"*Name of printer to print to.
If nil, use default.
-Under MS Windows, this can have the form `\\\\STOLI\\HP-345-PS'."
+Under Windows, use `mswindows-printer-list' to get names of installed
+printers."
:type 'string
:group 'printing)
buffer, or the `ps-print' package is used to pretty-print the buffer to a
PostScript printer. Under MS Windows, the built-in printing support is used."
(cond ((valid-specifier-tag-p 'msprinter)
- (or (stringp printer-name)
- (error "Please set `printer-name'"))
(let (d f)
(setq buf (decode-buffer buf))
(unwind-protect
(progn
(setq d (make-device 'msprinter printer-name))
(setq f (make-frame
- '(name "Test!"
- menubar-visible-p nil
- has-modeline-p nil
- default-toolbar-visible-p nil
- default-gutter-visible-p nil
- minibuffer none
- modeline-shadow-thickness 0
- vertical-scrollbar-visible-p nil
- horizontal-scrollbar-visible-p nil)
+ (list* 'name (concat (substitute ?_ ?.
+ (buffer-name buf))
+ " - XEmacs")
+ '(menubar-visible-p nil
+ has-modeline-p nil
+ default-toolbar-visible-p nil
+ default-gutter-visible-p nil
+ minibuffer none
+ modeline-shadow-thickness 0
+ vertical-scrollbar-visible-p nil
+ horizontal-scrollbar-visible-p nil))
d))
(let* ((w (frame-root-window f))
(vertdpi (cdr (device-system-metric d 'device-dpi)))