summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-05-01 10:04:31 +0200
committerBastien Guerry <bzg@altern.org>2012-05-01 10:04:31 +0200
commitadb10d15439ebfd0a027e4852981a3acc1314efc (patch)
tree991ab8bd7eceb83d24629878c96b6eadc9eb1dce
parent3053c13d2c345cc5b222b7401b89656ef4ad695d (diff)
downloadorg-mode-adb10d15439ebfd0a027e4852981a3acc1314efc.tar.gz
org-agenda.el (org-agenda-bulk-mark-regexp): Fix bug.
* org-agenda.el (org-agenda-bulk-mark-regexp): Fix bug when setting the number of marked entries.
-rw-r--r--lisp/org-agenda.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index ddb56ca..367d8e8 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -8315,13 +8315,13 @@ This is a command that has to be installed in `calendar-mode-map'."
(defun org-agenda-bulk-mark-regexp (regexp)
"Mark entries match REGEXP."
(interactive "sMark entries matching regexp: ")
- (let (entries-marked)
+ (let ((entries-marked 0))
(save-excursion
(goto-char (point-min))
(goto-char (next-single-property-change (point) 'txt))
(while (re-search-forward regexp nil t)
(when (string-match regexp (get-text-property (point) 'txt))
- (setq entries-marked (+ entries-marked 1))
+ (setq entries-marked (1+ entries-marked))
(call-interactively 'org-agenda-bulk-mark))))
(if (not entries-marked)
(message "No entry matching this regexp."))))