# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 978981132 0
# Node ID 0153adccc03d266b332a25e97767d8237c1cda34
# Parent  187e006e803a2ec8cb69b5968d794964220acb4a
(mouse-drag-should-do-col-scrolling): Change screen-width to frame-width.

diff -r 187e006e803a -r 0153adccc03d lisp/mouse-drag.el
--- a/lisp/mouse-drag.el	Mon Jan 08 19:12:03 2001 +0000
+++ b/lisp/mouse-drag.el	Mon Jan 08 19:12:12 2001 +0000
@@ -157,7 +157,7 @@
 Basically, we check for existing horizontal scrolling."
   (or truncate-lines
       (> (window-hscroll (selected-window)) 0)
-      (< (window-width) (screen-width))
+      (< (window-width) (frame-width))
       (and
        mouse-drag-electric-col-scrolling
        (save-excursion  ;; on a long line?