Mercurial > emacs

comparison lisp/epa.el @ 97719:73388588c9b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
comparison
equal deleted inserted replaced
97718:bb0e27c55c2e 97719:73388588c9b4
267 :value-create 'epa--key-widget-value-create 267 :value-create 'epa--key-widget-value-create
268 :action 'epa--key-widget-action 268 :action 'epa--key-widget-action
269 :help-echo 'epa--key-widget-help-echo) 269 :help-echo 'epa--key-widget-help-echo)
270 270
271 (defun epa--key-widget-action (widget &optional event) 271 (defun epa--key-widget-action (widget &optional event)
272 (epa--show-key (widget-get widget :value))) 272 (save-selected-window
273 (epa--show-key (widget-get widget :value))))
273 274
274 (defun epa--key-widget-value-create (widget) 275 (defun epa--key-widget-value-create (widget)
275 (let* ((key (widget-get widget :value)) 276 (let* ((key (widget-get widget :value))
276 (primary-sub-key (car (epg-key-sub-key-list key))) 277 (primary-sub-key (car (epg-key-sub-key-list key)))
277 (primary-user-id (car (epg-key-user-id-list key)))) 278 (primary-user-id (car (epg-key-user-id-list key))))