Mercurial > hg > xemacs-beta

comparison lisp/printer.el @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents b8cc9ab3f761
children
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
157 (setq buf (decode-buffer buf)) 157 (setq buf (decode-buffer buf))
158 (unwind-protect 158 (unwind-protect
159 (progn 159 (progn
160 (setq d (make-device 'msprinter printer-name)) 160 (setq d (make-device 'msprinter printer-name))
161 (setq f (make-frame 161 (setq f (make-frame
162 '(name "Test!" 162 (list* 'name (concat (substitute ?_ ?.
163 menubar-visible-p nil 163 (buffer-name buf))
164 has-modeline-p nil 164 " - XEmacs")
165 default-toolbar-visible-p nil 165 '(menubar-visible-p nil
166 default-gutter-visible-p nil 166 has-modeline-p nil
167 minibuffer none 167 default-toolbar-visible-p nil
168 modeline-shadow-thickness 0 168 default-gutter-visible-p nil
169 vertical-scrollbar-visible-p nil 169 minibuffer none
170 horizontal-scrollbar-visible-p nil) 170 modeline-shadow-thickness 0
171 vertical-scrollbar-visible-p nil
172 horizontal-scrollbar-visible-p nil))
171 d)) 173 d))
172 (let* ((w (frame-root-window f)) 174 (let* ((w (frame-root-window f))
173 (vertdpi (cdr (device-system-metric d 'device-dpi))) 175 (vertdpi (cdr (device-system-metric d 'device-dpi)))
174 (pixel-vertical-clip-threshold (/ vertdpi 2)) 176 (pixel-vertical-clip-threshold (/ vertdpi 2))
175 (last-end 0) 177 (last-end 0)