# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1186552161 0
# Node ID ad7b04a38ce44697e8747fe7f2ca2d3edbde5f46
# Parent  49b138bd37ef33868c1f07455d1f58256cfc8b33
Use window-full-width-p instead of comparing frame-width and
window-width.

diff -r 49b138bd37ef -r ad7b04a38ce4 lisp/mouse-drag.el
--- 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?