[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: bug? the position of scroll-bar
From: |
Richard Stallman |
Subject: |
Re: bug? the position of scroll-bar |
Date: |
Sun, 21 Sep 2003 18:34:32 -0400 |
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.