# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 739619064 0
# Node ID 9685f1d5545be642b43fd70f54993cc29ff57e15
# Parent  2b2b701866469615fad265e7355d237a0a0b7860
	* 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.

diff -r 2b2b70186646 -r 9685f1d5545b lisp/scroll-bar.el
--- 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))))))