[Emacs-diffs] Changes to emacs/lisp/mouse-drag.el, v [EMACS_22_BASE]

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Martin Rudalics <m061211>       07/08/08 05:49:21

Index: mouse-drag.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mouse-drag.el,v
retrieving revision 1.14.2.1
retrieving revision 1.14.2.2
diff -u -b -r1.14.2.1 -r1.14.2.2
--- mouse-drag.el       25 Jul 2007 04:47:12 -0000      1.14.2.1
+++ mouse-drag.el       8 Aug 2007 05:49:21 -0000       1.14.2.2
@@ -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?