diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2016-09-12 12:04:34 +0200 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2016-09-12 12:04:34 +0200 |
commit | d68497d887186bacb1da6c10df7e5f8ea0c7fd91 (patch) | |
tree | 10dbf7477ced8be754d8441b92db96d97bfdf0d4 | |
parent | b5403dda35d1d48a9b5b1957a521a610bbaced18 (diff) | |
parent | b113d4e1e68e9b19eae065549f55d351ed2ccc28 (diff) | |
download | org-mode-d68497d887186bacb1da6c10df7e5f8ea0c7fd91.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/org-agenda.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index d24f756..34bbbb4 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9696,9 +9696,12 @@ This is a command that has to be installed in `calendar-mode-map'." (goto-char (next-single-property-change (point) 'org-hd-marker)) (while (and (re-search-forward regexp nil t) (setq txt-at-point (get-text-property (point) 'txt))) - (when (string-match regexp txt-at-point) - (setq entries-marked (1+ entries-marked)) - (call-interactively 'org-agenda-bulk-mark)))) + (if (get-char-property (point) 'invisible) + (beginning-of-line 2) + (when (string-match regexp txt-at-point) + (setq entries-marked (1+ entries-marked)) + (call-interactively 'org-agenda-bulk-mark))))) + (if (not entries-marked) (message "No entry matching this regexp.")))) |