From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: storm@cua.dk (Kim F. Storm) Newsgroups: gmane.emacs.devel Subject: Re: bug? the position of scroll-bar Date: 22 Sep 2003 09:56:26 +0200 Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: References: <20030917.204830.74744537.jet@gyve.org> <20030921.145130.208947415.jet@gyve.org> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1064217428 312 80.91.224.253 (22 Sep 2003 07:57:08 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 22 Sep 2003 07:57:08 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Mon Sep 22 09:56:54 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1A1LZ0-0007Ph-00 for ; Mon, 22 Sep 2003 09:56:54 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1A1Lei-0001MF-00 for ; Mon, 22 Sep 2003 10:02:49 +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 1A1LYn-0005gj-En for emacs-devel@quimby.gnus.org; Mon, 22 Sep 2003 03:56:41 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.22) id 1A1LYg-0005eQ-K7 for emacs-devel@gnu.org; Mon, 22 Sep 2003 03:56:34 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.22) id 1A1LYf-0005cM-09 for emacs-devel@gnu.org; Mon, 22 Sep 2003 03:56:33 -0400 Original-Received: from [212.88.64.25] (helo=mail-relay.sonofon.dk) by monty-python.gnu.org with smtp (Exim 4.22) id 1A1LYc-0005Z0-8F for emacs-devel@gnu.org; Mon, 22 Sep 2003 03:56:30 -0400 Original-Received: (qmail 61129 invoked from network); 22 Sep 2003 07:56:28 -0000 Original-Received: from unknown (HELO kfs-l.imdomain.dk.cua.dk) (213.83.150.2) by 0 with SMTP; 22 Sep 2003 07:56:28 -0000 Original-To: Masatake YAMATO In-Reply-To: <20030921.145130.208947415.jet@gyve.org> Original-Lines: 36 User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:16546 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:16546 Masatake YAMATO writes: > (progn (set-window-scroll-bars (selected-window) 10 'hippopotamus) > (window-scroll-bars (selected-window))) > => (10 2 hippopotamus nil) > > hippopotamus is accepted. It shouldn't, so your fix is ok (read on)... > set-window-scroll-bars is a built-in function. > (set-window-scroll-bars WINDOW WIDTH &optional VERTICAL-TYPE HORIZONTAL-TYPE) > > Set width and type of scroll bars of window WINDOW. > If window is nil, set scroll bars of the currently selected window. > Second parameter WIDTH specifies the pixel width for the scroll bar; > this is automatically adjusted to a multiple of the frame column width. > Third parameter VERTICAL-TYPE specifies the type of the vertical scroll > bar: left, right, or nil. > ^^^^^^^^^^^^^^^^^^^^^^^^^ > A width of nil and type of t means to use the frame's corresponding value. ^^^^^^^^^ You need to allow Qt as well: > I've tried to add following code > > if (!(EQ (vertical_type, Qnil) Add: || EQ (vertical_type, Qt) -- Kim F. Storm http://www.cua.dk