diff options
| author | Richard M. Stallman | 2001-01-08 19:12:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-01-08 19:12:12 +0000 |
| commit | f36782bc24702882d9667e89ac66d1729eb0127c (patch) | |
| tree | f2dd94bc3c37d2d4c5aa8d66893ea55ac563925c | |
| parent | 78b8eee89b748f60de4099b5df63477cfb45430b (diff) | |
| download | emacs-f36782bc24702882d9667e89ac66d1729eb0127c.tar.gz emacs-f36782bc24702882d9667e89ac66d1729eb0127c.zip | |
(mouse-drag-should-do-col-scrolling): Change screen-width to frame-width.
| -rw-r--r-- | lisp/mouse-drag.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mouse-drag.el b/lisp/mouse-drag.el index 0714078fdea..9affe8b488c 100644 --- a/lisp/mouse-drag.el +++ b/lisp/mouse-drag.el | |||
| @@ -157,7 +157,7 @@ Keep the cursor on the screen as needed." | |||
| 157 | Basically, we check for existing horizontal scrolling." | 157 | Basically, we check for existing horizontal scrolling." |
| 158 | (or truncate-lines | 158 | (or truncate-lines |
| 159 | (> (window-hscroll (selected-window)) 0) | 159 | (> (window-hscroll (selected-window)) 0) |
| 160 | (< (window-width) (screen-width)) | 160 | (< (window-width) (frame-width)) |
| 161 | (and | 161 | (and |
| 162 | mouse-drag-electric-col-scrolling | 162 | mouse-drag-electric-col-scrolling |
| 163 | (save-excursion ;; on a long line? | 163 | (save-excursion ;; on a long line? |