浏览代码

Autoload the new archiving commands

Carsten Dominik 15 年之前
父节点
当前提交
34cde857eb
共有 3 个文件被更改,包括 7 次插入1 次删除
  1. 3 0
      lisp/ChangeLog
  2. 1 0
      lisp/org-archive.el
  3. 3 1
      lisp/org.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-11-18  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-archive.el (org-archive-subtree-default-with-confirmation):
+	Autoload.
+
 	* org-latex.el (org-export-latex-fontify): Fix regexp to make char
 	after match optional (happens at the end of a line...).
 

+ 1 - 0
lisp/org-archive.el

@@ -443,6 +443,7 @@ This command is set with the variable `org-archive-default-command'."
   (interactive)
   (call-interactively org-archive-default-command))
 
+;;;###autoload
 (defun org-archive-subtree-default-with-confirmation ()
   "Archive the current subtree with the default command.
 This command is set with the variable `org-archive-default-command'."

+ 3 - 1
lisp/org.el

@@ -3561,7 +3561,9 @@ collapsed state."
 (eval-and-compile
   (org-autoload "org-archive"
    '(org-add-archive-files org-archive-subtree
-     org-archive-to-archive-sibling org-toggle-archive-tag)))
+     org-archive-to-archive-sibling org-toggle-archive-tag
+     org-archive-subtree-default
+     org-archive-subtree-default-with-confirmation)))
 
 ;; Autoload Column View Code