gav451/emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Comment the search and paren mismatching problems

Browse Source
This commit is contained in:
Gerard Vermeulen 2023-07-08 10:57:33 +02:00
parent 71e2faacd5
commit 5df503070b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
README.org
View File

@ -2836,13 +2836,15 @@ SCHEDULED: <2023-06-30 Fri>
#+name: lst:valid-org-babel-load-languages-entries #+name: lst:valid-org-babel-load-languages-entries
#+header: :wrap "src emacs-lisp -n :eval never :tangle no" #+header: :wrap "src emacs-lisp -n :eval never :tangle no"
#+begin_src emacs-lisp -n :exports both :results value pp :tangle no #+begin_src emacs-lisp -n :exports both :results value pp :tangle no
;; "Search failed:" with paren mismatching problems start here,
;; but the problems are not due to this source block.
(defun all-org-babel-execute-fns () (defun all-org-babel-execute-fns ()
"Find `ob-LANGUAGE' files in Org defining `org-babel-execute:LANGUAGE'. "Find `ob-LANGUAGE' files in Org defining `org-babel-execute:LANGUAGE'.
Return a list of items where the filename is the `car' of each item and the Return a list of items where the filename is the `car' of each item and the
`cdr' of each item lists the `org-babel-execute:LANGUAGE' functions." `cdr' of each item lists the `org-babel-execute:LANGUAGE' functions."
(let* ((dir (file-name-parent-directory (locate-library "org"))) (let* ((dir (file-name-parent-directory (locate-library "org")))
(names (directory-files dir t (rx "ob-" (+ print) ".el" eos)))) (names (directory-files dir t (rx "ob-" (+ print) ".el" eos))))
(cl-loop for name in names (cl-loop for name in names
for found = (has-org-babel-execute-fn name) for found = (has-org-babel-execute-fn name)
when found collect found))) when found collect found)))