[elpa] externals/denote 3654f902e6 210/355: Accept optional group in denote-retrieve--search

[ELPA Syncer]

branch: externals/denote
commit 3654f902e6a73a1b2cadb5bcfd9a80398db0596b
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Accept optional group in denote-retrieve--search
---
 denote-retrieve.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/denote-retrieve.el b/denote-retrieve.el
index dd0544af99..587b551d31 100644
--- a/denote-retrieve.el
+++ b/denote-retrieve.el
@@ -56,14 +56,15 @@ group 1.")
         (match-string 0 file))
     (error "Cannot find `%s' as a file" file)))
 
-(defun denote-retrieve--search (regexp)
-  "Search for REGEXP in the current buffer."
+(defun denote-retrieve--search (regexp &optional group)
+  "Search for REGEXP in the current buffer.
+With optional GROUP match it, else match group 1."
   (save-excursion
     (save-restriction
       (widen)
       (goto-char (point-min))
       (re-search-forward regexp nil t 1)
-      (match-string-no-properties 1))))
+      (match-string-no-properties (or group 1)))))
 
 (defun denote-retrieve--value (file regexp)
   "Return REGEXP value from FILE.