# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1064444142 0
# Node ID de1a002c48c70b22c88b29866f11d238657f5f09
# Parent  a77e35d5d0c224d5edeef03521d2df058722fd99
(window-current-scroll-bars): New defun.

diff -r a77e35d5d0c2 -r de1a002c48c7 lisp/window.el
--- a/lisp/window.el	Wed Sep 24 22:54:55 2003 +0000
+++ b/lisp/window.el	Wed Sep 24 22:55:42 2003 +0000
@@ -75,6 +75,23 @@
     (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.