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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 329139951a97c8ecadd1444bbc27b375c9214f53..0a8105a7aebebe58a305fc015cd8dee81885b2ed 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el
index c28a417a8f38dfb2b9192048376b4edbe2106e77..3f763fc59dad2e2d12e2a66bbdbffdde5fc99044 100644 (file)
--- a/lisp/scroll-bar.el
+++ b/lisp/scroll-bar.el
@@ -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.