- (insert prompt)
- (widget-create 'push-button
- :tag "Done"
- :notify (lambda (widget &rest ignore)
- (let ((callback (widget-value widget))
- keys key)
- (while (re-search-forward "^\\*" nil t)
- (if (setq key (get-text-property (point)
- 'epa-key))
- (setq keys (cons key keys))))
- (set-buffer (car callback))
- (apply (car (cdr callback)) keys
- (cdr (cdr callback)))))
- (cons buffer (cons function args)))
- (insert "\n\n")