From 136b27c5716996032afb11b47b3489e1dbc2ab75 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 19 Feb 2001 17:53:37 +0000 Subject: [PATCH] (widget-button-click): Save the selected window around the code handling clicks on buttons. --- lisp/ChangeLog | 5 +++++ lisp/wid-edit.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * wid-edit.el (widget-button-click): Save the selected window + around the code handling clicks on buttons. + 2001-02-18 Dave Love * 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)) -- 2.39.5