[elpa] externals/denote b25704e041 211/355: Make denote-retrieve--value pass optional group

[ELPA Syncer]

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

    Make denote-retrieve--value pass optional group
    
    See commit 3654f90.
---
 denote-retrieve.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/denote-retrieve.el b/denote-retrieve.el
index 587b551d31..9bfb212500 100644
--- a/denote-retrieve.el
+++ b/denote-retrieve.el
@@ -66,13 +66,16 @@ With optional GROUP match it, else match group 1."
       (re-search-forward regexp nil t 1)
       (match-string-no-properties (or group 1)))))
 
-(defun denote-retrieve--value (file regexp)
+(defun denote-retrieve--value (file regexp &optional group)
   "Return REGEXP value from FILE.
-FILE is a note in the variable `denote-directory'."
+FILE is a note in the variable `denote-directory'.
+
+Optional GROUP is a regexp construct for
+`denote-retrieve--search'."
   (let ((default-directory (denote-directory)))
     (with-temp-buffer
       (insert-file-contents-literally file)
-      (or (denote-retrieve--search regexp)
+      (or (denote-retrieve--search regexp group)
           (user-error "Cannot retrieve %s in %s" regexp file)))))
 
 (defun denote-retrieve--read-file-prompt ()