Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |