|
@@ -6339,10 +6339,10 @@ This will remove the markers, and the overlays."
|
|
(cond
|
|
(cond
|
|
((equal action ?$)
|
|
((equal action ?$)
|
|
(setq cmd '(org-agenda-archive)))
|
|
(setq cmd '(org-agenda-archive)))
|
|
-
|
|
|
|
|
|
+
|
|
((equal action ?A)
|
|
((equal action ?A)
|
|
(setq cmd '(org-agenda-archive-to-archive-sibling)))
|
|
(setq cmd '(org-agenda-archive-to-archive-sibling)))
|
|
-
|
|
|
|
|
|
+
|
|
((member action '(?r ?w))
|
|
((member action '(?r ?w))
|
|
(setq rfloc (org-refile-get-location
|
|
(setq rfloc (org-refile-get-location
|
|
"Refile to: "
|
|
"Refile to: "
|
|
@@ -6353,9 +6353,9 @@ This will remove the markers, and the overlays."
|
|
(or (get-file-buffer (nth 1 rfloc))
|
|
(or (get-file-buffer (nth 1 rfloc))
|
|
(find-buffer-visiting (nth 1 rfloc))
|
|
(find-buffer-visiting (nth 1 rfloc))
|
|
(error "This should not happen"))))
|
|
(error "This should not happen"))))
|
|
-
|
|
|
|
|
|
+
|
|
(setq cmd (list 'org-agenda-refile nil (list 'quote rfloc))))
|
|
(setq cmd (list 'org-agenda-refile nil (list 'quote rfloc))))
|
|
-
|
|
|
|
|
|
+
|
|
((equal action ?t)
|
|
((equal action ?t)
|
|
(setq state (org-ido-completing-read
|
|
(setq state (org-ido-completing-read
|
|
"Todo state: "
|
|
"Todo state: "
|
|
@@ -6364,7 +6364,7 @@ This will remove the markers, and the overlays."
|
|
(setq cmd `(let ((org-inhibit-blocking t)
|
|
(setq cmd `(let ((org-inhibit-blocking t)
|
|
(org-inhibit-logging 'note))
|
|
(org-inhibit-logging 'note))
|
|
(org-agenda-todo ,state))))
|
|
(org-agenda-todo ,state))))
|
|
-
|
|
|
|
|
|
+
|
|
((memq action '(?- ?+))
|
|
((memq action '(?- ?+))
|
|
(setq tag (org-ido-completing-read
|
|
(setq tag (org-ido-completing-read
|
|
(format "Tag to %s: " (if (eq action ?+) "add" "remove"))
|
|
(format "Tag to %s: " (if (eq action ?+) "add" "remove"))
|
|
@@ -6390,7 +6390,7 @@ This will remove the markers, and the overlays."
|
|
(fset 'read-string old)
|
|
(fset 'read-string old)
|
|
(fmakunbound 'read-string)))))))
|
|
(fmakunbound 'read-string)))))))
|
|
(t (error "Invalid bulk action")))
|
|
(t (error "Invalid bulk action")))
|
|
-
|
|
|
|
|
|
+
|
|
;; Now loop over all markers and apply cmd
|
|
;; Now loop over all markers and apply cmd
|
|
(while (setq e (pop entries))
|
|
(while (setq e (pop entries))
|
|
(goto-char
|
|
(goto-char
|