From xemacs-m  Mon Feb  3 21:24:21 1997
Received: from bayserve.net (bay1.bayserve.net [206.148.244.200])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id VAA26478
	for <xemacs-beta@xemacs.org>; Mon, 3 Feb 1997 21:24:18 -0600 (CST)
Received: from localhost (jmiller@localhost) by  bayserve.net (8.7.2/8.7.2) with SMTP id WAA15769; Mon, 3 Feb 1997 22:28:58 -0500 (EST)
Date: Mon, 3 Feb 1997 22:28:58 -0500 (EST)
From: Jeff Miller <jmiller@bay1.bayserve.net>
To: beta-list <xemacs-beta@xemacs.org>
cc: duthen@cegelec-red.fr
Subject: Updates to print menu under Options
Message-ID: <Pine.SUN.3.95.970203221652.10440A-100000@bay1.bayserve.net>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII


Added to XEmacs 20.0 but probably the same for 19.15

Does anybody else think these are useful?  I'd like to see an option to
specify a printer.  I can always hard code something in but  something
automagically built from a printcap file or an alist type thing would
really be nice.  That would be a bit more that my lisp abilities can
handle though. 

--- lisp/x11/x-menubar2.el      Sun Feb  2 23:45:53 1997
+++ lisp/x11/x-menubar.el       Mon Feb  3 22:06:49 1997
@@ -187,6 +187,26 @@
        ["Pretty-Print With Color"
        (setq ps-print-color-p (not ps-print-color-p))
        :style toggle :selected ps-print-color-p]
+       ("Orientation"
+       ["Portrait"
+        (setq ps-landscape-mode nil)
+        :style radio
+        :selected (eq ps-landscape-mode nil)]
+       ["Landscape"
+        (setq ps-landscape-mode t)
+        :style radio
+        :selected (eq ps-landscape-mode t)]
+       )
+       ("Columns"
+       ["Single"
+        (setq ps-number-of-columns 1)
+        :style radio
+        :selected (eq ps-number-of-columns 1)]
+       ["Double"
+        (setq ps-number-of-columns 2)
+        :style radio
+        :selected (eq ps-number-of-columns 2)]
+       )       
        ("Pretty-Print Paper Size"
        ["Letter"
         (setq ps-paper-type 'letter)

This also requires an update to ps-print.el to make the 2 variables
auto-loaded.

--- lisp/packages/ps-print.el.orig      Mon Feb  3 21:13:02 1997
+++ lisp/packages/ps-print.el   Mon Feb  3 21:13:07 1997
@@ -774,10 +774,10 @@
   "*Specifies the size of paper to format for.
 Should be one of the paper types defined in
`ps-page-dimensions-database', for
 example `letter', `legal' or `a4'.")
-
+;;;###autoload
 (defvar ps-landscape-mode 'nil
   "*Non-nil means print in landscape mode.")
-
+;;;###autoload
 (defvar ps-number-of-columns (if ps-landscape-mode 2 1)
   "*Specifies the number of columns")
 

Then I ran lib-src/update-autoloads.sh & bytecompiled
prim/auto-autoloads.el.  Not sure if the is the correct way but it worked.
:)

