Improve prompt

This commit is contained in:
Gerard Vermeulen 2024-01-31 20:42:53 +01:00
parent e5d050364f
commit 39b35f67dd

View File

@ -2463,7 +2463,7 @@ When prefix ARG is non-nil, prompt first for a language."
(when arg
(setq language (completing-read "language: " org-babel-load-languages)))
(if-let* ((names (org-babel--source-block-names language))
(name (completing-read "name: " names)))
(name (completing-read "Block name: " names)))
(if (cl-remove-if-not (lambda (pair) (string= name (car pair))) names)
(save-excursion
(org-babel-goto-named-src-block name)