diff options
author | Bastien <bzg@gnu.org> | 2020-02-12 20:00:29 +0100 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-02-12 20:00:29 +0100 |
commit | c0d08b7efe740c17a3eec28984161c05e43da5ef (patch) | |
tree | 0c8f1a80398a9af41e18b5399f61160594a81619 | |
parent | fa24cd541d51f386fe89c8bb47b41273b19abf9a (diff) | |
download | org-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.el | 6 |
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.")))) |