import -ko -b 1.1.3 XEmacs XEmacs-21_2 r21-2-35

[chise/xemacs-chise.git.1] / lisp / printer.el

diff --git a/lisp/printer.el b/lisp/printer.el
index ed1ce4d..20211bf 100644 (file)
--- a/lisp/printer.el
+++ b/lisp/printer.el
@@ -159,15 +159,17 @@ PostScript printer.  Under MS Windows, the built-in printing support is used."
               (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)))