From adb10d15439ebfd0a027e4852981a3acc1314efc Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 1 May 2012 10:04:31 +0200 Subject: [PATCH] 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. --- lisp/org-agenda.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index ddb56ca4b..367d8e844 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.")))) -- 2.11.4.GIT