(epa--key-widget-action): Save the selected window to

make `widget-button-click-moves-point' work.  (Bug#733).

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b7de6ea0393..832871f7d1d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-08-26  Daiki Ueno  <ueno@unixuser.org>
+
+        * epa.el (epa--key-widget-action): Save the selected window to
+        make `widget-button-click-moves-point' work.  (Bug#733).
+
 2008-08-26  Glenn Morris  <rgm@gnu.org>
 
         * progmodes/gud.el (tramp-file-name-localname)
diff --git a/lisp/epa.el b/lisp/epa.el
index 2c86c5fdd4c..0f8f25206da 100644
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -269,7 +269,8 @@ You should bind this variable with `let', but do not set it globally.")
   :help-echo 'epa--key-widget-help-echo)
 
 (defun epa--key-widget-action (widget &optional event)
-  (epa--show-key (widget-get widget :value)))
+  (save-selected-window
+    (epa--show-key (widget-get widget :value))))
 
 (defun epa--key-widget-value-create (widget)
   (let* ((key (widget-get widget :value))