diff options
| author | Daiki Ueno | 2015-03-24 16:32:08 +0900 |
|---|---|---|
| committer | Daiki Ueno | 2015-03-24 16:32:08 +0900 |
| commit | 71fdbd770bf06ad48bcb165e85b59778abc9ed06 (patch) | |
| tree | 20607113d591b3b81bae6dca5da336126aa9f4f0 | |
| parent | e5ce95fa4a0b311792b9b9dcc3b8901fc1f24a0d (diff) | |
| download | emacs-71fdbd770bf06ad48bcb165e85b59778abc9ed06.tar.gz emacs-71fdbd770bf06ad48bcb165e85b59778abc9ed06.zip | |
epg: Fix key generation interface
* epg.el (epg-start-generate-key): Fix typo in "gpg --gen-key"
invocation; make the PARAMETERS documentation clearer.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/epg.el | 8 |
2 files changed, 10 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 25ac7ae6782..e91d2bc0464 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2015-03-24 Daiki Ueno <ueno@gnu.org> | ||
| 2 | |||
| 3 | * epg.el (epg-start-generate-key): Fix typo in "gpg --gen-key" | ||
| 4 | invocation; make the PARAMETERS documentation clearer. | ||
| 5 | |||
| 1 | 2015-03-24 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2015-03-24 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 7 | ||
| 3 | Add cl-struct specific optimizations to pcase. | 8 | Add cl-struct specific optimizations to pcase. |
diff --git a/lisp/epg.el b/lisp/epg.el index f66545306da..1b75b50df0e 100644 --- a/lisp/epg.el +++ b/lisp/epg.el | |||
| @@ -2051,7 +2051,9 @@ If you are unsure, use synchronous version of this function | |||
| 2051 | 2051 | ||
| 2052 | (defun epg-start-generate-key (context parameters) | 2052 | (defun epg-start-generate-key (context parameters) |
| 2053 | "Initiate a key generation. | 2053 | "Initiate a key generation. |
| 2054 | PARAMETERS specifies parameters for the key. | 2054 | PARAMETERS is a string which specifies parameters of the generated key. |
| 2055 | See Info node `(gnupg) Unattended GPG key generation' in the | ||
| 2056 | GnuPG manual for the format. | ||
| 2055 | 2057 | ||
| 2056 | If you use this function, you will need to wait for the completion of | 2058 | If you use this function, you will need to wait for the completion of |
| 2057 | `epg-gpg-program' by using `epg-wait-for-completion' and call | 2059 | `epg-gpg-program' by using `epg-wait-for-completion' and call |
| @@ -2061,9 +2063,9 @@ If you are unsure, use synchronous version of this function | |||
| 2061 | (setf (epg-context-operation context) 'generate-key) | 2063 | (setf (epg-context-operation context) 'generate-key) |
| 2062 | (setf (epg-context-result context) nil) | 2064 | (setf (epg-context-result context) nil) |
| 2063 | (if (epg-data-file parameters) | 2065 | (if (epg-data-file parameters) |
| 2064 | (epg--start context (list "--batch" "--genkey" "--" | 2066 | (epg--start context (list "--batch" "--gen-key" "--" |
| 2065 | (epg-data-file parameters))) | 2067 | (epg-data-file parameters))) |
| 2066 | (epg--start context '("--batch" "--genkey")) | 2068 | (epg--start context '("--batch" "--gen-key")) |
| 2067 | (if (eq (process-status (epg-context-process context)) 'run) | 2069 | (if (eq (process-status (epg-context-process context)) 'run) |
| 2068 | (process-send-string (epg-context-process context) | 2070 | (process-send-string (epg-context-process context) |
| 2069 | (epg-data-string parameters))) | 2071 | (epg-data-string parameters))) |