# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 982605184 0
# Node ID cd2b4630c74d520efd767339bdd4752f54603778
# Parent  357e372545a528ad54ebb0d97487ce53c99ebd23
(widget-button-click): Save the selected window
around the code handling clicks on buttons.

diff -r 357e372545a5 -r cd2b4630c74d lisp/wid-edit.el
--- a/lisp/wid-edit.el	Mon Feb 19 16:44:07 2001 +0000
+++ b/lisp/wid-edit.el	Mon Feb 19 17:53:04 2001 +0000
@@ -861,7 +861,7 @@
 	    ;; 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))