(widget-button-click): Save the selected window

around the code handling clicks on buttons.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9cdabc0f00a..1a537825820 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-19  Gerd Moellmann  <gerd@gnu.org>
+
+        * wid-edit.el (widget-button-click): Save the selected window
+        around the code handling clicks on buttons.
+
 2001-02-18  Dave Love  <fx@gnu.org>
 
         * imenu.el (imenu--generic-function): Use mapc to iterate over
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index e28114eeadd..dc7e28b4ed1 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -861,7 +861,7 @@ Recommended as a parent keymap for modes using widgets.")
             ;; Mouse click on a widget button.  Do the following
             ;; in a save-excursion so that the click on the button
             ;; doesn't change point.
-            (progn
+            (save-selected-window
               (save-excursion
                 (mouse-set-point event)
                 (let* ((overlay (widget-get button :button-overlay))