[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org a83465a 1/2: oc-basic: Clarify prompt durin
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org a83465a 1/2: oc-basic: Clarify prompt during key completion |
Date: |
Tue, 7 Dec 2021 16:57:46 -0500 (EST) |
branch: externals-release/org
commit a83465add3e225325c7ff1d97fe1d044326c6433
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <mail@nicolasgoaziou.fr>
oc-basic: Clarify prompt during key completion
* lisp/oc-basic.el (org-cite-basic--complete-key): Clarify prompt
during completion. Format docstring.
---
lisp/oc-basic.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/lisp/oc-basic.el b/lisp/oc-basic.el
index 7b09db5..6b07ea1 100644
--- a/lisp/oc-basic.el
+++ b/lisp/oc-basic.el
@@ -731,8 +731,9 @@ reference. Values are the cite key."
(defun org-cite-basic--complete-key (&optional multiple)
"Prompt for a reference key and return a citation reference string.
-When optional argument MULTIPLE is non-nil, prompt for multiple keys, until one
-of them is nil. Then return the list of reference strings selected.
+When optional argument MULTIPLE is non-nil, prompt for multiple
+keys, until one of them is nil. Then return the list of
+reference strings selected.
Raise an error when no bibliography is set in the buffer."
(let* ((table
@@ -748,9 +749,9 @@ Raise an error when no bibliography is set in the buffer."
(build-prompt
(lambda ()
(if keys
- (format "Key (\"\" to exit) %s: "
+ (format "Key (empty input exits) %s: "
(mapconcat #'identity (reverse keys) ";"))
- "Key (\"\" to exit): "))))
+ "Key (empty input exits): "))))
(let ((key (funcall prompt (funcall build-prompt))))
(while (org-string-nw-p key)
(push (gethash key table) keys)