* org-agenda.el (org-agenda-bulk-action): Allow the user to run a function.

* org-agenda.el (org-agenda-bulk-action): Allow the user to
run a function.

lisp/org-agenda.el

@@ -7969,7 +7969,7 @@ The prefix arg is passed through to the command if possible."
   (interactive "P")
   (unless org-agenda-bulk-marked-entries
     (error "No entries are marked"))
-  (message "Bulk: [r]efile [$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [S]catter [d]eadline")
+  (message "Bulk: [r]efile [$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [S]catter [d]eadline [f]unction")
   (let* ((action (read-char-exclusive))
 	 (org-log-refile (if org-log-refile 'time nil))
 	 (entries (reverse org-agenda-bulk-marked-entries))
@@ -8059,6 +8059,11 @@ The prefix arg is passed through to the command if possible."
 		       (org-agenda-date-later distance)
 		     (error nil)))))))
 
+     ((equal action ?f)
+      (setq cmd (list (intern 
+		       (org-icompleting-read "Function: "
+					     obarray 'fboundp t nil nil)))))
+
      (t (error "Invalid bulk action")))
 
     ;; Sort the markers, to make sure that parents are handled before children