92 |
|
|
93 |
(defun window-current-scroll-bars (&optional window) |
(defun window-current-scroll-bars (&optional window) |
94 |
"Return the current scroll-bar settings in window WINDOW. |
"Return the current scroll-bar settings in window WINDOW. |
95 |
Value is a cons (VERTICAL . HORISONTAL) where VERTICAL specifies the |
Value is a cons (VERTICAL . HORIZONTAL) where VERTICAL specifies the |
96 |
current location of the vertical scroll-bars (left, right, or nil), |
current location of the vertical scroll-bars (left, right, or nil), |
97 |
and HORISONTAL specifies the current location of the horisontal scroll |
and HORIZONTAL specifies the current location of the horizontal scroll |
98 |
bars (top, bottom, or nil)." |
bars (top, bottom, or nil)." |
99 |
(let ((vert (nth 2 (window-scroll-bars window))) |
(let ((vert (nth 2 (window-scroll-bars window))) |
100 |
(hor nil)) |
(hor nil)) |