Re: Problem with scroll-bar dragging and patch.

[Luc Teirlinck]

Below is a corrected change log entry and patch for the problem with
the scrollbar I described earlier.  The patch only changes one of the
three functions which my earlier patch changed, because the other two
functions seem completely irrelevant and the change in
scroll-bar-drag-position would generate a warning from the
byte-compiler.

Change Log:

2003-04-23  Luc Teirlinck  <address@hidden>

        * scroll-bar.el (scroll-bar-drag-1): Replace beginning-of-line
        with vertical-motion.

Patch:

===File ~/scrollbar-diff====================================
cd /usr/local/share/emacs/21.3.50/lisp/
diff -c /usr/local/share/emacs/21.3.50/lisp/scroll-bar.old.el 
/usr/local/share/emacs/21.3.50/lisp/scroll-bar.el
*** /usr/local/share/emacs/21.3.50/lisp/scroll-bar.old.el       Wed Apr  2 
13:58:36 2003
--- /usr/local/share/emacs/21.3.50/lisp/scroll-bar.el   Wed Apr 23 23:01:01 2003
***************
*** 218,224 ****
        (goto-char (+ (point-min)
                    (scroll-bar-scale portion-whole
                                      (- (point-max) (point-min)))))
!       (beginning-of-line)
        (set-window-start window (point)))))
  
  (defun scroll-bar-drag (event)
--- 218,224 ----
        (goto-char (+ (point-min)
                    (scroll-bar-scale portion-whole
                                      (- (point-max) (point-min)))))
!       (vertical-motion 0 window)
        (set-window-start window (point)))))
  
  (defun scroll-bar-drag (event)

Diff finished at Wed Apr 23 23:04:14
============================================================