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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b7de6ea0393eaab05559d2c0ab0b0e65aba4e8db..832871f7d1d8ed2501d9be2c89dcc926405f388d 100644 (file)
--- 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 2c86c5fdd4ce09c1e2dd4def369c1f1ca4ae8d4a..0f8f25206dac4f62d4886574f3fa9db7cee5577c 100644 (file)
--- 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))