Mercurial > emacs

diff lisp/mouse-drag.el @ 78463:ad7b04a38ce4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use window-full-width-p instead of comparing frame-width and window-width.
author Martin Rudalics <rudalics@gmx.at>
date Wed, 08 Aug 2007 05:49:21 +0000
parents 9355f9b7bbff
children 73661ddc7ac7 424b655804ca
line wrap: on
line diff
--- a/lisp/mouse-drag.el	Wed Aug 08 05:46:49 2007 +0000
+++ b/lisp/mouse-drag.el	Wed Aug 08 05:49:21 2007 +0000
@@ -158,7 +158,7 @@
 Basically, we check for existing horizontal scrolling."
   (or truncate-lines
       (> (window-hscroll (selected-window)) 0)
-      (< (window-width) (frame-width))
+      (not (window-full-width-p))
       (and
        mouse-drag-electric-col-scrolling
        (save-excursion  ;; on a long line?