浏览代码

ob-tangle: Silence byte-compiler

Nicolas Goaziou 11 年之前
父节点
当前提交
bdbf80aacb
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/ob-tangle.el

+ 2 - 1
lisp/ob-tangle.el

@@ -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