/[emacs]/emacs/lisp/scroll-bar.el
ViewVC logotype

Diff of /emacs/lisp/scroll-bar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.45 by miles, Wed Apr 2 04:31:05 2003 UTC revision 1.46 by lektu, Sun Apr 27 11:09:53 2003 UTC
# Line 218  EVENT should be a scroll bar click or dr Line 218  EVENT should be a scroll bar click or dr
218        (goto-char (+ (point-min)        (goto-char (+ (point-min)
219                      (scroll-bar-scale portion-whole                      (scroll-bar-scale portion-whole
220                                        (- (point-max) (point-min)))))                                        (- (point-max) (point-min)))))
221        (beginning-of-line)        (vertical-motion 0 window)
222        (set-window-start window (point)))))        (set-window-start window (point)))))
223    
224  (defun scroll-bar-drag (event)  (defun scroll-bar-drag (event)

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26