-(defun epg-start-edit-key (context key)
- "Initiate an edit key operation.
-
-If you use this function, you will need to wait for the completion of
-`epg-gpg-program' by using `epg-wait-for-completion' and call
-`epg-reset' to clear a temporaly output file.
-If you are unsure, use synchronous version of this function
-`epg-edit-key' instead."
- (epg-context-set-operation context 'edit-key)
- (epg-context-set-result context nil)
- (epg--start context (list "--with-colons" "--edit-key" "--"
- (epg-sub-key-id (car (epg-key-sub-key-list key))))))
-
-;;;###autoload
-(defun epg-edit-key (context key)
- "Edit KEY in the key ring."
- (unwind-protect
- (progn
- (epg-start-edit-key context key)
- (epg-wait-for-completion context)
- (if (epg-context-result-for context 'error)
- (error "Edit key failed: %S"
- (epg-context-result-for context 'error))))
- (epg-reset context)))
-
-;;;###autoload