[Emacs-diffs] Changes to emacs/lisp/window.el

[Kim F. Storm]

Index: emacs/lisp/window.el
diff -c emacs/lisp/window.el:1.91 emacs/lisp/window.el:1.92
*** emacs/lisp/window.el:1.91   Thu Sep 11 20:52:08 2003
--- emacs/lisp/window.el        Wed Sep 24 18:55:42 2003
***************
*** 75,80 ****
--- 75,97 ----
      (eq base-window
        (next-window base-window (if nomini 'arg) all-frames))))
  
+ (defun window-current-scroll-bars (&optional window)
+   "Return the current scroll-bar settings in window WINDOW.
+ Value is a cons (VERTICAL . HORISONTAL) where VERTICAL specifies the
+ current location of the vertical scroll-bars (left, right, or nil),
+ and HORISONTAL specifies the current location of the horisontal scroll
+ bars (top, bottom, or nil)."
+   (let ((vert (nth 2 (window-scroll-bars window)))
+       (hor nil))
+     (when (or (eq vert t) (eq hor t))
+       (let ((fcsb (frame-current-scroll-bars 
+                  (window-frame (or window (selected-window))))))
+       (if (eq vert t)
+           (setq vert (car fcsb)))
+       (if (eq hor t)
+           (setq hor (cdr fcsb)))))
+     (cons vert hor)))
+ 
  (defun walk-windows (proc &optional minibuf all-frames)
    "Cycle through all visible windows, calling PROC for each one.
  PROC is called with a window as argument.