From xemacs-m  Mon Sep 22 09:43:21 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id JAA03506
	for <xemacs-beta@xemacs.org>; Mon, 22 Sep 1997 09:43:20 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.7/8.8.7/Debian/GNU) id HAA09599;
	Mon, 22 Sep 1997 07:43:35 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [patch] `x-toolbar.el': `Info-frame-plist'
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Sep_22_07:43:33_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg@inetarena.com (Karl M. Hegbloom)
Date: 22 Sep 1997 07:43:33 -0700
Message-ID: <873emx1ka2.fsf@bittersweet.inetarena.com>
Lines: 60
X-Mailer: Gnus v5.5/XEmacs 20.3(beta23) - "Sarajevo"

--Multipart_Mon_Sep_22_07:43:33_1997-1
Content-Type: text/plain; charset=US-ASCII

 I like to make my XEmacs frames default to 100 columns, but Info is
 formatted for 80 columns.  I thought it would be good if pressing the
 Info toolbar button would make the frame be the proper width.


8<------------------------------------------------------->8
1997-09-22  Karl M. Hegbloom  <karlheg@inetarena.com>

	* x11/x-toolbar.el (Info-frame-plist): Added.
	(toolbar-info) Use new plist variable to make-frame.


--Multipart_Mon_Sep_22_07:43:33_1997-1
Content-Type: text/plain; charset=US-ASCII

Index: lisp/x11/x-toolbar.el
===================================================================
RCS file: /usr/local/cvsroot/xemacs-20/lisp/x11/x-toolbar.el,v
retrieving revision 1.1.1.2
diff -u -r1.1.1.2 x-toolbar.el
--- x-toolbar.el	1997/09/17 10:47:27	1.1.1.2
+++ x-toolbar.el	1997/09/22 14:33:53
@@ -213,13 +213,23 @@
 (defvar toolbar-info-frame nil
   "The frame in which info is displayed.")
 
+(defcustom Info-frame-plist 
+    (append (list 'width 80)
+	    (let ((h (plist-get default-frame-plist 'height)))
+	      (when h (list 'height h))))
+    "Frame plist for the Info frame."
+  :type '(repeat (group :inline t
+		  (symbol :tag "Property")
+		  (sexp :tag "Value")))
+  :group 'info)
+
 (defun toolbar-info ()
   "Run info in a separate frame."
   (interactive)
   (if (or (not toolbar-info-frame)
 	  (not (frame-live-p toolbar-info-frame)))
       (progn
-	(setq toolbar-info-frame (make-frame))
+	(setq toolbar-info-frame (make-frame Info-frame-plist))
 	(select-frame toolbar-info-frame)
 	(raise-frame toolbar-info-frame)))
   (if (frame-iconified-p toolbar-info-frame)

--Multipart_Mon_Sep_22_07:43:33_1997-1
Content-Type: text/plain; charset=US-ASCII

mailto:karlheg@inetarena.com (Karl M. Hegbloom)
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3.1+hamm  Linux pre-2.0.31-9+select+QNX  AMD K5 PR-133

--Multipart_Mon_Sep_22_07:43:33_1997-1--

