Mercurial > emacs

changeset 35141:0153adccc03d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-drag-should-do-col-scrolling): Change screen-width to frame-width.
author Richard M. Stallman <rms@gnu.org>
date Mon, 08 Jan 2001 19:12:12 +0000
parents 187e006e803a
children 40698b92a36a
files lisp/mouse-drag.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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?