mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-25 10:47:12 +00:00
Code

Added get-all-src-block-infos, which creates a hash of the 'info' lists

Browse Source 
for all source blocks in a buffer, keyed by srcname.
This commit is contained in:
Dan Davison 2009-06-14 01:08:27 -04:00
parent 81ee8944ae
commit 66b27cb951
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/org-babel.el
View File

@ -186,6 +186,17 @@ of the following form. (language body header-arguments-alist)"
(org-babel-parse-inline-src-block-match)
nil)))) ;; indicate that no source block was found
(defun org-babel-get-all-src-block-infos ()
"Get source-code block info for all blocks in buffer."
(save-excursion
(goto-char (point-min))
(let ((blocks (make-hash-table :test 'equal)))
(while (re-search-forward
org-babel-named-src-block-regexp nil t)
(puthash (match-string-no-properties 1) ;; srcname
(org-babel-get-src-block-info) blocks)
blocks))))
(defun org-babel-parse-src-block-match ()
(list (org-babel-clean-text-properties (match-string 1))
(org-babel-strip-protective-comas (org-babel-clean-text-properties (match-string 4)))