Mercurial > emacs
changeset 26510:6866d2a9a421
(scroll-bar-toolkit-scroll): add handling of the `ratio'
event for Xaw and Xaw3d(without arrows) scrollbars.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 19 Nov 1999 20:18:47 +0000 |
| parents | 26958042b58d |
| children | 0ef930a8a8db |
| files | lisp/ChangeLog lisp/scroll-bar.el |
| diffstat | 2 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Nov 19 20:14:12 1999 +0000 +++ b/lisp/ChangeLog Fri Nov 19 20:18:47 1999 +0000 @@ -1,5 +1,8 @@ 1999-11-19 Stefan Monnier <monnier@cs.yale.edu> + * scroll-bar.el (scroll-bar-toolkit-scroll): add handling of the `ratio' + event for Xaw and Xaw3d(without arrows) scrollbars. + * files.el (auto-mode-alist): add patterns for diff-mode. * complete.el (PC-do-complete-and-exit): use minibuffer-prompt-end to
--- a/lisp/scroll-bar.el Fri Nov 19 20:14:12 1999 +0000 +++ b/lisp/scroll-bar.el Fri Nov 19 20:18:47 1999 +0000 @@ -316,6 +316,13 @@ (scroll-up '-)) ((eq part 'below-handle) (scroll-up nil)) + ((eq part 'ratio) + (let* ((portion-whole (nth 2 end-position)) + (lines (scroll-bar-scale portion-whole + (1- (window-height))))) + (scroll-up (cond ((not (zerop lines)) lines) + ((< (car portion-whole) 0) -1) + (t 1))))) ((eq part 'up) (scroll-up -1)) ((eq part 'down) @@ -330,7 +337,7 @@ (sit-for 0) (unless scroll-bar-timer (setq scroll-bar-timer - (run-with-timer 0.1 0.1 'xt-process-timeouts))) + (run-with-timer 0.1 0.1 'xt-process-timeouts))) (with-current-buffer (window-buffer window) (setq point-before-scroll before-scroll))))))