From xemacs-m  Sun Mar 16 15:35:06 1997
Received: from atreides.eng.mindspring.net (atreides.eng.mindspring.net [207.69.183.11])
	by xemacs.org (8.8.5/8.8.5) with SMTP id PAA06527
	for <xemacs-beta@xemacs.org>; Sun, 16 Mar 1997 15:35:05 -0600 (CST)
Received: (qmail 4296 invoked by uid 52477); 16 Mar 1997 21:34:36 -0000
Sender: sj@atreides.eng.mindspring.net
To: xemacs-beta@xemacs.org
Subject: Re: dired/gnus on a tty
References: <199703152215.XAA13530@sol1.cybernet-ag.net> 	<kigybboiygo.fsf@jagor.srce.hr> 	<yvialo7oep8a.fsf@atreides.eng.mindspring.net> 	<kiglo7og0u4.fsf@jagor.srce.hr> 	<yviaiv2seksl.fsf@atreides.eng.mindspring.net> 	<kigbu8kfygm.fsf@jagor.srce.hr> 	<QQchay23723.199703160107@crystal.WonderWorks.COM> 	<kig913ofxbn.fsf@jagor.srce.hr> 	<xcd4tecmvqb.fsf@rodman.cs.uchicago.edu> 	<yviak9n8bk4m.fsf@atreides.eng.mindspring.net> <QQchbl26528.199703160425@crystal.WonderWorks.COM>
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: text/plain; charset=US-ASCII
From: Sudish Joseph <sj@eng.mindspring.net>
Date: 16 Mar 1997 16:34:16 -0500
In-Reply-To: Kyle Jones's message of Sat, 15 Mar 1997 23:25:03 -0500 (EST)
Message-ID: <yviapvwzv7v7.fsf@atreides.eng.mindspring.net>
Lines: 44
X-Mailer: Gnus v5.4.25/XEmacs 20.1

Kyle Jones writes:
> (set-specifier menubar-visible-p nil (selected-device))

Very cool, thanks for the pointer.  I wasn't sure if there is any cost
X-traffic-wise for menubars and toolbars when make-x-device is called [1],
so I reversed the default and left the main X display alone:

(let ((specs
       '((menubar-visible-p)
	 (top-toolbar-visible-p)
	 (bottom-toolbar-visible-p)
	 (right-toolbar-visible-p)
	 (left-toolbar-visible-p)
	 (default-toolbar-visible-p)
	 (top-toolbar-height . 0)
	 (bottom-toolbar-height . 0)
	 (right-toolbar-width . 0)
	 (left-toolbar-width . 0)
	 (default-toolbar-width . 0)
	 (default-toolbar-height . 0))))
  (loop for (spec . val) in specs
	do (when (and (boundp spec)
		      (specifierp (setq spec (symbol-value spec))))
	     (set-specifier spec 
			    (specifier-instance spec (default-x-device)) 
			    (default-x-device))
	     (set-specifier spec val 'global))))

All new X devices get minimal frames -- all my remote spawning is
done from home.  Specifiers are really cool -- being able to separate
defaults for frames and displays in such a clean fashion is awesome.

I'd appreciate pointers to other X traffic-intensive specifiers I can
add to this list.

-Sudish

[1] Is there?  Ie., does the following lose since the specifier is
defaulted at the time of device creation (which is when the server is
connected to)?

(let ((device (make-device 'x "foobar:0.0")))
  (if (devicep device)
      (set-specifier spec val device)))

