[elpa] externals/org 00b4de3: ol: Avoid initial input when completing function for storing link

[ELPA Syncer]

branch: externals/org
commit 00b4de3294e526f9684c7669f9697b2fe27e13e1
Author: Kyle Meyer <kyle@kyleam.com>
Commit: Kyle Meyer <kyle@kyleam.com>

    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
---
 lisp/ol.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/ol.el b/lisp/ol.el
index 5ba8131..cf10578 100644
--- a/lisp/ol.el
+++ b/lisp/ol.el
@@ -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))