emacs-devel
[Top][All Lists]
Advanced

[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.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]