diff options
author | Bastien Guerry <bzg@altern.org> | 2012-09-02 11:26:27 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-09-02 11:26:27 +0200 |
commit | 34d66d7d0c624e3a3f3915605d3a9b05e5081ecb (patch) | |
tree | 9bc9c1af7edc57046954908676ad403b2bf0b61c | |
parent | bda6404b326fb29607fe8824609de76d1af5b763 (diff) | |
download | org-mode-34d66d7d0c624e3a3f3915605d3a9b05e5081ecb.tar.gz |
org-agenda.el: Fix bug: don't remove persistent marks too early
* org-agenda.el (org-agenda-bulk-action): Fix bug: don't
remove persistent marks too early.
-rw-r--r-- | lisp/org-agenda.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 174046a..a1ac1bd 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9035,13 +9035,10 @@ The prefix arg is passed through to the command if possible." (goto-char pos) (let (org-loop-over-headlines-in-active-region) (eval cmd)) - (when (not org-agenda-persistent-marks) - (setq org-agenda-bulk-marked-entries - (delete e org-agenda-bulk-marked-entries))) (setq cnt (1+ cnt)))) - (when (not org-agenda-persistent-marks) - (org-agenda-bulk-unmark-all)) (when redo-at-end (org-agenda-redo)) + (unless org-agenda-persistent-marks + (org-agenda-bulk-unmark-all)) (message "Acted on %d entries%s%s" cnt (if (= cntskip 0) |