|
@@ -38,6 +38,7 @@
|
|
|
(declare-function org-back-to-heading "org" (invisible-ok))
|
|
|
(declare-function org-fill-template "org" (template alist))
|
|
|
(declare-function org-babel-update-block-body "org" (new-body))
|
|
|
+(declare-function org-up-heading-safe "org" ())
|
|
|
(declare-function make-directory "files" (dir &optional parents))
|
|
|
|
|
|
(defcustom org-babel-tangle-lang-exts
|
|
@@ -355,6 +356,7 @@ that the appropriate major-mode is set. SPEC has the form:
|
|
|
insert-comment
|
|
|
(org-fill-template org-babel-tangle-comment-format-end link-data)))))
|
|
|
|
|
|
+(defvar org-comment-string) ;; Defined in org.el
|
|
|
(defun org-babel-under-commented-heading-p ()
|
|
|
"Return t if currently under a commented heading."
|
|
|
(if (string-match (concat "^" org-comment-string)
|
|
@@ -364,7 +366,6 @@ that the appropriate major-mode is set. SPEC has the form:
|
|
|
(and (org-up-heading-safe)
|
|
|
(org-babel-under-commented-heading-p)))))
|
|
|
|
|
|
-(defvar org-comment-string) ;; Defined in org.el
|
|
|
(defun org-babel-tangle-collect-blocks (&optional language tangle-file)
|
|
|
"Collect source blocks in the current Org-mode file.
|
|
|
Return an association list of source-code block specifications of
|