# HG changeset patch
# User Daiki Ueno <ueno@unixuser.org>
# Date 1219720305 0
# Node ID 73388588c9b4fa6a20fa663727b486fd2fb7fa43
# Parent  bb0e27c55c2ed2348d51803fd4d41ae56292ec80
(epa--key-widget-action): Save the selected window to
make `widget-button-click-moves-point' work.  (Bug#733).

diff -r bb0e27c55c2e -r 73388588c9b4 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Aug 26 03:05:04 2008 +0000
+++ b/lisp/ChangeLog	Tue Aug 26 03:11:45 2008 +0000
@@ -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 -r bb0e27c55c2e -r 73388588c9b4 lisp/epa.el
--- a/lisp/epa.el	Tue Aug 26 03:05:04 2008 +0000
+++ b/lisp/epa.el	Tue Aug 26 03:11:45 2008 +0000
@@ -269,7 +269,8 @@
   :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))