Function: mouse-drag-should-do-col-scrolling

mouse-drag-should-do-col-scrolling is a byte-compiled function defined in mouse-drag.el.gz.

Signature

(mouse-drag-should-do-col-scrolling)

Documentation

Determine if it's wise to enable col-scrolling for the current window.

Basically, we check for existing horizontal scrolling.

Source Code

;; Defined in /usr/src/emacs/lisp/mouse-drag.el.gz
(defun mouse-drag-should-do-col-scrolling ()
  "Determine if it's wise to enable col-scrolling for the current window.
Basically, we check for existing horizontal scrolling."
  (or truncate-lines
      (> (window-hscroll) 0)
      (not (window-full-width-p))
      (and
       mouse-drag-electric-col-scrolling
       (save-excursion  ;; on a long line?
	 (let
	     ((beg (line-beginning-position))
	      (end (progn (end-of-line) (point))))
	   (if (> (- end beg) (window-width))
	       (setq truncate-lines t)
	     nil))))))