|
@@ -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)
|