diff lisp/epa.el @ 97719:73388588c9b4

(epa--key-widget-action): Save the selected window to make `widget-button-click-moves-point' work. (Bug#733).
author Daiki Ueno <ueno@unixuser.org>
date Tue, 26 Aug 2008 03:11:45 +0000
parents b056a93eb26f
children be17c10d7381
line wrap: on
line diff
--- 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))