[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Problem with scroll-bar dragging and patch.

From: Luc Teirlinck
Subject: Re: Problem with scroll-bar dragging and patch.
Date: Wed, 23 Apr 2003 23:36:50 -0500 (CDT)

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

Change Log:

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

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


===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.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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]