Improve prompt
This commit is contained in:
parent
e5d050364f
commit
39b35f67dd
@ -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)
|
||||
|
Loading…
x
Reference in New Issue
Block a user