Remove recently added code to support meeting actions

This code is now in the tutorial describing this work flow.
It is too specialized to be in org.el.

Thanks for Matt Lundin for checking on me.

1 files changed, 0 insertions, 56 deletions

diff --git a/lisp/org.el b/lisp/org.el
index e652ff1..28025ea 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -1104,12 +1104,6 @@ breaking the list structure."
 			(const :tag "Always" t)
 			(const :tag "Auto" auto)))))
 
-(defcustom org-numbered-action-format "TODO Action #%d "
-  "Default structure of the headling of a new action.
-%d will become the number of the action."
-  :group 'org-edit-structure
-  :type 'string)  
-
 (defcustom org-insert-heading-hook nil
   "Hook being run after inserting a new heading."
   :group 'org-edit-structure
@@ -6930,29 +6924,6 @@ This is important for non-interactive uses of the command."
 	    (hide-subtree)))
 	(run-hooks 'org-insert-heading-hook)))))
 
-(defun org-new-numbered-action (&optional inline)
-  "Insert a new numbered action, using `org-numbered-action-format'.
-With prefix argument, insert an inline task."
-  (interactive "P")
-  (let* ((num (let ((re "\\`#\\([0-9]+\\)\\'"))
-		(1+ (apply 'max 0
-			   (mapcar
-			    (lambda (e)
-			      (if (string-match re (car e))
-				  (string-to-number (match-string 1 (car e)))
-				0))
-			    (org-get-buffer-tags))))))
-	 (tag (concat "#" (number-to-string num))))
-    (if inline
-          (org-inlinetask-insert-task)
-      (org-insert-heading nil 'force))
-    (unless (eql (char-before) ?\ ) (insert " "))
-    (insert (format org-numbered-action-format num))
-    (org-toggle-tag tag 'on)
-    (if (= (point-max) (point-at-bol))
-	(save-excursion (goto-char (point-at-eol)) (insert "\n")))
-    (unless (eql (char-before) ?\ ) (insert " "))))
-
 (defun org-get-heading (&optional no-tags)
   "Return the heading of the current entry, without the stars."
   (save-excursion
@@ -7600,33 +7571,6 @@ If optional TXT is given, check this string instead of the current kill."
 	    (throw 'exit nil)))
 	t))))
 
-(defun org-collect-todos-in-subtree ()
-  "Collect all TODO items in the current subtree into a flat list."
-  (interactive)
-  (let ((buf (get-buffer-create "Org TODO Collect"))
-	(cnt 0))
-    (with-current-buffer buf (erase-buffer) (org-mode))
-    (save-excursion
-      (save-restriction
-	(org-narrow-to-subtree)
-	(goto-char (point-min))
-	(while (re-search-forward org-complex-heading-regexp nil t)
-	  (when (and (match-end 2)
-		     (member (match-string 2) org-not-done-keywords))
-	    (setq beg (match-beginning 0)
-		  cnt (1+ cnt))
-	    (org-end-of-subtree t t)
-	    (setq end (point))
-	    (copy-region-as-kill beg end)
-	    (with-current-buffer buf
-	      (org-paste-subtree 1)
-	      (or (bolp) (insert "\n"))
-	      (set-buffer-modified-p nil))))))
-    (with-current-buffer buf
-      (kill-region (point-min) (point-max)))
-    (kill-buffer buf)
-    (message "Collected %d TODO items as flat list into the kill buffer" cnt)))
-
 (defvar org-markers-to-move nil
   "Markers that should be moved with a cut-and-paste operation.
 Those markers are stored together with their positions relative to