Mercurial > emacs
changeset 3588:9685f1d5545b
* scroll-bar.el (scroll-bar-set-window-start): Remember that the
scroll bar numbers reflect the accessible region of the buffer,
not the entire buffer.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 09 Jun 1993 09:44:24 +0000 |
| parents | 2b2b70186646 |
| children | 6af3ae2976d0 |
| files | lisp/scroll-bar.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/scroll-bar.el Wed Jun 09 09:23:12 1993 +0000 +++ b/lisp/scroll-bar.el Wed Jun 09 09:44:24 1993 +0000 @@ -92,7 +92,9 @@ (save-excursion (set-buffer (window-buffer window)) (save-excursion - (goto-char (scroll-bar-scale portion-whole (buffer-size))) + (goto-char (+ (point-min) + (scroll-bar-scale portion-whole + (- (point-max) (point-min))))) (beginning-of-line) (set-window-start window (point))))))