summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien <bzg@gnu.org>2020-02-12 20:00:29 +0100
committerBastien <bzg@gnu.org>2020-02-12 20:00:29 +0100
commitc0d08b7efe740c17a3eec28984161c05e43da5ef (patch)
tree0c8f1a80398a9af41e18b5399f61160594a81619
parentfa24cd541d51f386fe89c8bb47b41273b19abf9a (diff)
downloadorg-mode-c0d08b7efe740c17a3eec28984161c05e43da5ef.tar.gz
org-agenda.el (org-agenda-bulk-mark-regexp): Fix bug
* lisp/org-agenda.el (org-agenda-bulk-mark-regexp): Fix bug when matching the text at the end of the line. Thanks to Nathan Neff for reporting and investigating this bug.
-rw-r--r--lisp/org-agenda.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 84d0273..aed1b24 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -10098,13 +10098,13 @@ When ARG is greater than one mark ARG lines."
(goto-char (point-min))
(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)))
+ (setq txt-at-point
+ (get-text-property (match-beginning 0) 'txt)))
(if (get-char-property (point) 'invisible)
(beginning-of-line 2)
- (when (string-match regexp txt-at-point)
+ (when (string-match-p regexp txt-at-point)
(setq entries-marked (1+ entries-marked))
(call-interactively 'org-agenda-bulk-mark)))))
-
(unless entries-marked
(message "No entry matching this regexp."))))