master 72d4522: Add option remember-diary-regexp

[Lars Ingebrigtsen]

branch: master
commit 72d4522b05c81ba9400603963db55e47c6d836ce
Author: Gabriel do Nascimento Ribeiro <gabriel.nascimento@nubank.com.br>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Add option remember-diary-regexp
    
    * lisp/textmodes/remember.el (remember-diary-extract-entries): Use
    it (bug#45808).
    (remember-diary-regexp): New variable.
---
 etc/NEWS                   |  3 +++
 lisp/textmodes/remember.el | 12 +++++++++---
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index 7a012b4..a0e1e3b 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1557,6 +1557,9 @@ that makes it a valid button.
 
 ** Miscellaneous
 
+---
+*** New user option 'remember-diary-regexp'.
+
 *** New function 'buffer-line-statistics'.
 This function returns some statistics about the line lengths in a buffer.
 
diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el
index 98d3a38..92706e3 100644
--- a/lisp/textmodes/remember.el
+++ b/lisp/textmodes/remember.el
@@ -159,7 +159,8 @@
 ;;   ;; This should be before other entries that may return t
 ;;   (add-to-list 'remember-handler-functions 'remember-diary-extract-entries)
 ;;
-;; This module recognizes entries of the form
+;; This module recognizes entries of the form (defined by
+;; `remember-diary-regexp')
 ;;
 ;;   DIARY: ....
 ;;
@@ -532,13 +533,18 @@ If this is nil, then `diary-file' will be used instead."
 
 (autoload 'diary-make-entry "diary-lib")
 
+(defcustom remember-diary-regexp "^DIARY:\\s-*\\(.+\\)"
+  "Regexp to extract diary entries."
+  :type 'regexp
+  :version "28.1")
+
 ;;;###autoload
 (defun remember-diary-extract-entries ()
-  "Extract diary entries from the region."
+  "Extract diary entries from the region based on `remember-diary-regexp'."
   (save-excursion
     (goto-char (point-min))
     (let (list)
-      (while (re-search-forward "^DIARY:\\s-*\\(.+\\)" nil t)
+      (while (re-search-forward remember-diary-regexp nil t)
         (push (remember-diary-convert-entry (match-string 1)) list))
       (when list
         (diary-make-entry (mapconcat 'identity list "\n")