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

around the code handling clicks on buttons.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9cdabc0f00a8fbef80a7bc8a8aae280307d3140b..1a5378258207d39539350b7d97713ddca414fd7c 100644 (file)
--- 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 e28114eeadd956c380364be0d9d5f431976d4f3f..dc7e28b4ed12365b48645344c3d136a2bc7a2dd4 100644 (file)
--- 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))