diff options
author | Kyle Meyer <kyle@kyleam.com> | 2021-01-02 17:13:56 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2021-01-05 00:12:05 -0500 |
commit | 00b4de3294e526f9684c7669f9697b2fe27e13e1 (patch) | |
tree | 9528b11959a50b01f8b83cd2445c4d6cb0728ead | |
parent | e6e1c081161f771f6a1453319588993663933a02 (diff) | |
download | org-mode-00b4de3294e526f9684c7669f9697b2fe27e13e1.tar.gz |
ol: Avoid initial input when completing function for storing link
* lisp/ol.el (org-store-link): Use completing-read's DEF argument
rather than INITIAL-INPUT, which is discouraged (see Elisp manual) and
may hide the other choices depending on the completion framework.
Reported-by: John Kitchin <jkitchin@andrew.cmu.edu>
Ref: https://orgmode.org/list/CAJ51ETqO9A8mE0W3pgU2cFzaZsESdYXAV0X-8veY+_V9AwPHdQ@mail.gmail.com
-rw-r--r-- | lisp/ol.el | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1496,9 +1496,9 @@ non-nil." (apply #'org-link-store-props (cdr (assoc-string (completing-read - "Which function for creating the link? " - (mapcar #'car results-alist) - nil t (symbol-name name)) + (format "Store link with (default %s): " name) + (mapcar #'car results-alist) + nil t nil nil (symbol-name name)) results-alist))) t)))) (setq link (plist-get org-store-link-plist :link)) |