Function: frame-current-scroll-bars
frame-current-scroll-bars is a byte-compiled function defined in
frame.el.gz.
Signature
(frame-current-scroll-bars &optional FRAME)
Documentation
Return the current scroll-bar types for frame FRAME.
Value is a cons (VERTICAL . HORIZ0NTAL) where VERTICAL specifies
the current location of the vertical scroll-bars (left, right
or nil), and HORIZONTAL specifies the current location of the
horizontal scroll bars (bottom or nil). FRAME must specify a
live frame and defaults to the selected one.
Probably introduced at or before Emacs version 22.1.
Source Code
;; Defined in /usr/src/emacs/lisp/frame.el.gz
(defun frame-current-scroll-bars (&optional frame)
"Return the current scroll-bar types for frame FRAME.
Value is a cons (VERTICAL . HORIZ0NTAL) where VERTICAL specifies
the current location of the vertical scroll-bars (`left', `right'
or nil), and HORIZONTAL specifies the current location of the
horizontal scroll bars (`bottom' or nil). FRAME must specify a
live frame and defaults to the selected one."
(let* ((frame (window-normalize-frame frame))
(vertical (frame-parameter frame 'vertical-scroll-bars))
(horizontal (frame-parameter frame 'horizontal-scroll-bars)))
(unless (memq vertical '(left right nil))
(setq vertical default-frame-scroll-bars))
(cons vertical (and horizontal 'bottom))))