mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

scroll-bar.el (scroll-bar-drag-1): Add save-excursion, bug #5654.

Browse Source
This commit is contained in:
Jan Djärv 2010-02-28 15:36:34 +01:00
parent 412c01b6f0
commit 71572c0330
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2010-02-28 Jan Djärv <jan.h.d@swipnet.se>
* scroll-bar.el (scroll-bar-drag-1): Add save-excursion, bug #5654.
2010-02-28 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-handle-write-region): START can be a string.

15
lisp/scroll-bar.el
View File

@ -210,13 +210,14 @@ EVENT should be a scroll bar click or drag event."
(let* ((start-position (event-start event))
(window (nth 0 start-position))
(portion-whole (nth 2 start-position)))
(with-current-buffer (window-buffer window)
;; Calculate position relative to the accessible part of the buffer.
(goto-char (+ (point-min)
(scroll-bar-scale portion-whole
(- (point-max) (point-min)))))
(vertical-motion 0 window)
(set-window-start window (point)))))
(save-excursion
(with-current-buffer (window-buffer window)
;; Calculate position relative to the accessible part of the buffer.
(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)
"Scroll the window by dragging the scroll bar slider.