From xemacs-m  Sat Jan 25 23:23:40 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
          by xemacs.org (8.8.4/8.8.4) with ESMTP
	  id XAA04825 for <xemacs-beta@xemacs.org>; Sat, 25 Jan 1997 23:23:40 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id VAA00515;
	Sat, 25 Jan 1997 21:34:42 -0800
To: xemacs-beta@xemacs.org
Subject: Re: pretty-print
References: <199701260337.VAA06413@mharnois.workgroup.net> <87u3o5nikc.fsf@mharnois.workgroup.net>
X-Url: http://www.miranova.com/%7Esteve/
Mail-Copies-To: never
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Michael Harnois's message of 25 Jan 1997 22:53:23 -0600
Mime-Version: 1.0 (generated by tm-edit 7.100)
Content-Type: text/plain; charset=US-ASCII
Date: 25 Jan 1997 21:34:40 -0800
Message-ID: <m2pvytvw27.fsf@altair.xemacs.org>
Lines: 80
X-Mailer: Gnus v5.4.1/XEmacs 20.0

Michael Harnois writes:

> Found it. The options menu had written the old-style definition
> into .xemacs-options. And, if I do Options>Printing
Options> Pretty-Print Paper Size>Letter and then Options>Save Options,
> it will write the old-style definition into .xemacs-options again! I
> tried to find where that code is, but I haven't succeeded yet ...

Index: x-menubar.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/x11/x-menubar.el,v
retrieving revision 1.5
diff -u -r1.5 x-menubar.el
--- x-menubar.el	1997/01/23 05:29:58	1.5
+++ x-menubar.el	1997/01/26 05:26:38
@@ -189,17 +189,53 @@
 	:style toggle :selected ps-print-color-p]
        ("Pretty-Print Paper Size"
 	["Letter"
-	 (setq ps-paper-type 'ps-letter)
+	 (setq ps-paper-type 'letter)
 	 :style radio
-	 :selected (eq ps-paper-type 'ps-letter)]
+	 :selected (eq ps-paper-type 'letter)]
+	["Letter-small"
+	 (setq ps-paper-type 'letter-small)
+	 :style radio
+	 :selected (eq ps-paper-type 'letter-small)]
 	["Legal"
-	 (setq ps-paper-type 'ps-legal)
+	 (setq ps-paper-type 'legal)
+	 :style radio
+	 :selected (eq ps-paper-type 'legal)]
+	["Statement"
+	 (setq ps-paper-type 'statement)
+	 :style radio
+	 :selected (eq ps-paper-type 'statement)]
+	["Executive"
+	 (setq ps-paper-type 'executive)
+	 :style radio
+	 :selected (eq ps-paper-type 'executive)]
+	["Tabloid"
+	 (setq ps-paper-type 'tabloid)
+	 :style radio
+	 :selected (eq ps-paper-type 'tabloid)]
+	["Ledger"
+	 (setq ps-paper-type 'ledger)
 	 :style radio
-	 :selected (eq ps-paper-type 'ps-legal)]
+	 :selected (eq ps-paper-type 'ledger)]
+	["A3"
+	 (setq ps-paper-type 'a3)
+	 :style radio
+	 :selected (eq ps-paper-type 'a3)]
 	["A4"
-	 (setq ps-paper-type 'ps-a4)
+	 (setq ps-paper-type 'a4)
+	 :style radio
+	 :selected (eq ps-paper-type 'a4)]
+	["A4small"
+	 (setq ps-paper-type 'a4small)
+	 :style radio
+	 :selected (eq ps-paper-type 'a4small)]
+	["B4"
+	 (setq ps-paper-type 'b4)
+	 :style radio
+	 :selected (eq ps-paper-type 'b4)]
+	["B5"
+	 (setq ps-paper-type 'b5)
 	 :style radio
-	 :selected (eq ps-paper-type 'ps-a4)]
+	 :selected (eq ps-paper-type 'b5)]
 	)
        )
       ("\"Other Window\" Location"

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.
Real men aren't afraid to use chains on icy roads.

