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

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/08/13 13:41:28

Index: lisp/mouse-drag.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mouse-drag.el,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- lisp/mouse-drag.el  26 Jul 2007 05:26:29 -0000      1.15
+++ lisp/mouse-drag.el  13 Aug 2007 13:40:59 -0000      1.16
@@ -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?