diff options
author | Bastien Guerry <bzg@altern.org> | 2012-05-01 10:04:31 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-05-01 10:04:31 +0200 |
commit | adb10d15439ebfd0a027e4852981a3acc1314efc (patch) | |
tree | 991ab8bd7eceb83d24629878c96b6eadc9eb1dce | |
parent | 3053c13d2c345cc5b222b7401b89656ef4ad695d (diff) | |
download | org-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.el | 4 |
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.")))) |