diff options
| author | Bastien Guerry <bzg@altern.org> | 2012-05-01 10:04:46 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2012-05-01 10:04:46 +0200 |
| commit | e5c8780e5c4ad1248bed3c317cc15ed9ed4bcb51 (patch) | |
| tree | d86c16cb55db4cb834cf75809ecb183996f56b04 | |
| parent | 8342fdb70aa28edbb7b0b18bf1f3c0fd2dd561fa (diff) | |
| parent | adb10d15439ebfd0a027e4852981a3acc1314efc (diff) | |
| download | org-mode-e5c8780e5c4ad1248bed3c317cc15ed9ed4bcb51.tar.gz | |
Merge branch 'maint'
| -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 510a73c..ff817c4 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -8636,13 +8636,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.")))) |