Browse Source

Autoload the new archiving commands

Carsten Dominik 15 years ago
parent
commit
34cde857eb
3 changed files with 7 additions and 1 deletions
  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>
 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
 	* org-latex.el (org-export-latex-fontify): Fix regexp to make char
 	after match optional (happens at the end of a line...).
 	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)
   (interactive)
   (call-interactively org-archive-default-command))
   (call-interactively org-archive-default-command))
 
 
+;;;###autoload
 (defun org-archive-subtree-default-with-confirmation ()
 (defun org-archive-subtree-default-with-confirmation ()
   "Archive the current subtree with the default command.
   "Archive the current subtree with the default command.
 This command is set with the variable `org-archive-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
 (eval-and-compile
   (org-autoload "org-archive"
   (org-autoload "org-archive"
    '(org-add-archive-files org-archive-subtree
    '(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
 ;; Autoload Column View Code