Function: tab-line-hscroll

tab-line-hscroll is a byte-compiled function defined in tab-line.el.gz.

Signature

(tab-line-hscroll &optional ARG WINDOW)

Source Code

;; Defined in /usr/src/emacs/lisp/tab-line.el.gz
(defun tab-line-hscroll (&optional arg window)
  (let* ((hscroll (window-parameter window 'tab-line-hscroll))
         (tabs (if window
                   (with-selected-window window (funcall tab-line-tabs-function))
                 (funcall tab-line-tabs-function))))
    (set-window-parameter
     window 'tab-line-hscroll
     (max 0 (min (+ (if (numberp hscroll) (truncate hscroll) 0) (or arg 1))
                 (1- (length tabs)))))
    (when window
      (force-mode-line-update t))))