From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Richard Stallman <rms@gnu.org>
Newsgroups: gmane.emacs.devel
Subject: Re: bug? the position of scroll-bar
Date: Sun, 21 Sep 2003 18:34:32 -0400
Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org
Message-ID: <E1A1Cmm-0004RJ-9J@fencepost.gnu.org>
References: <20030917.204830.74744537.jet@gyve.org>
	<m38yoj6may.fsf@kfs-l.imdomain.dk>
Reply-To: rms@gnu.org
NNTP-Posting-Host: deer.gmane.org
X-Trace: sea.gmane.org 1064184402 25823 80.91.224.253 (21 Sep 2003 22:46:42 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Sun, 21 Sep 2003 22:46:42 +0000 (UTC)
Cc: jet@gyve.org, emacs-devel@gnu.org
Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Mon Sep 22 00:46:40 2003
Return-path: <emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org>
Original-Received: from quimby.gnus.org ([80.91.224.244])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1A1CyW-0003Sh-00
	for <emacs-devel@deer.gmane.org>; Mon, 22 Sep 2003 00:46:40 +0200
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian))
	id 1A1D44-0007wT-00
	for <emacs-devel@quimby.gnus.org>; Mon, 22 Sep 2003 00:52:24 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.22)
	id 1A1CwM-0006tQ-KJ
	for emacs-devel@quimby.gnus.org; Sun, 21 Sep 2003 18:44:26 -0400
Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.22)
	id 1A1Cn9-0002Jy-PM
	for emacs-devel@gnu.org; Sun, 21 Sep 2003 18:34:55 -0400
Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.22)
	id 1A1Cn6-0002JA-6T
	for emacs-devel@gnu.org; Sun, 21 Sep 2003 18:34:53 -0400
Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.22) id 1A1Cn5-0002Ib-Gv
	for emacs-devel@gnu.org; Sun, 21 Sep 2003 18:34:51 -0400
Original-Received: from rms by fencepost.gnu.org with local (Exim 4.20)
	id 1A1Cmm-0004RJ-9J; Sun, 21 Sep 2003 18:34:32 -0400
Original-To: storm@cua.dk (Kim F. Storm)
In-reply-to: <m38yoj6may.fsf@kfs-l.imdomain.dk> (storm@cua.dk)
X-BeenThere: emacs-devel@gnu.org
X-Mailman-Version: 2.1.2
Precedence: list
List-Id: Emacs development discussions.  <emacs-devel.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/emacs-devel>
List-Post: <mailto:emacs-devel@gnu.org>
List-Help: <mailto:emacs-devel-request@gnu.org?subject=help>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=subscribe>
Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org
Xref: main.gmane.org gmane.emacs.devel:16538
X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:16538

    Maybe we need to add helper functions like these to hide the somewhat
    tricky relationship between windows, frames, and system defaults:

    (defun frame-current-scroll-bars (&optional frame)
       (let ((type (frame-parameter frame 'vertical-scroll-bars)))
	  (if (or (null type) (eq type 'left) (eq type 'right))
	      type
	    default-frame-scroll-bars)))

    and

    (defun window-current-scroll-bars (&optional window)
      (let ((type (nth 2 (window-scroll-bars window))))
	(if (eq type t)
	    (frame-current-scroll-bars (window-frame (or window (selected-window))))
	  type)))


That is a good idea.  Please add them.