diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-01-05 14:51:17 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-01-05 14:51:17 +0000 |
commit | 65ca3e22275da9ad6870e64bd5e77db3f312a42f (patch) | |
tree | 55c8d998bbc095cc34766034f087b45d3b8a7307 /lisp/mouse-drag.el | |
parent | 767dbe865a98432174efb3416a3ad450b9a7e24e (diff) | |
download | emacs-65ca3e22275da9ad6870e64bd5e77db3f312a42f.tar.gz |
(mouse-drag-safe-scroll): Bind
scroll-preserve-screen-position to nil.
Diffstat (limited to 'lisp/mouse-drag.el')
-rw-r--r-- | lisp/mouse-drag.el | 43 |
1 files changed, 22 insertions, 21 deletions
diff --git a/lisp/mouse-drag.el b/lisp/mouse-drag.el index 54475da3108..0714078fdea 100644 --- a/lisp/mouse-drag.el +++ b/lisp/mouse-drag.el @@ -1,6 +1,6 @@ ;;; mouse-drag.el --- use mouse-2 to do a new style of scrolling -;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 2001 Free Software Foundation, Inc. ;; Author: John Heidemann <johnh@ISI.EDU> ;; Keywords: mouse @@ -108,26 +108,27 @@ (defun mouse-drag-safe-scroll (row-delta &optional col-delta) "Scroll down ROW-DELTA lines and right COL-DELTA, ignoring buffer edge errors. Keep the cursor on the screen as needed." - (if (and row-delta - (/= 0 row-delta)) - (condition-case nil ;; catch and ignore movement errors - (scroll-down row-delta) - (beginning-of-buffer (message "Beginning of buffer")) - (end-of-buffer (message "End of buffer")))) - (if (and col-delta - (/= 0 col-delta)) - (progn - (scroll-right col-delta) - ;; Make sure that the point stays on the visible screen - ;; (if truncation-lines in set). - ;; This code mimics the behavior we automatically get - ;; when doing vertical scrolling. - ;; Problem identified and a fix suggested by Tom Wurgler. - (cond - ((< (current-column) (window-hscroll)) - (move-to-column (window-hscroll))) ; make on left column - ((> (- (current-column) (window-hscroll) (window-width) -2) 0) - (move-to-column (+ (window-width) (window-hscroll) -3))))))) + (let ((scroll-preserve-screen-position nil)) + (if (and row-delta + (/= 0 row-delta)) + (condition-case nil ;; catch and ignore movement errors + (scroll-down row-delta) + (beginning-of-buffer (message "Beginning of buffer")) + (end-of-buffer (message "End of buffer")))) + (if (and col-delta + (/= 0 col-delta)) + (progn + (scroll-right col-delta) + ;; Make sure that the point stays on the visible screen + ;; (if truncation-lines in set). + ;; This code mimics the behavior we automatically get + ;; when doing vertical scrolling. + ;; Problem identified and a fix suggested by Tom Wurgler. + (cond + ((< (current-column) (window-hscroll)) + (move-to-column (window-hscroll))) ; make on left column + ((> (- (current-column) (window-hscroll) (window-width) -2) 0) + (move-to-column (+ (window-width) (window-hscroll) -3)))))))) (defun mouse-drag-repeatedly-safe-scroll (row-delta &optional col-delta) "Scroll ROW-DELTA rows and COL-DELTA cols until an event happens." |