[elpa] externals/denote 6becb0951e 03/10: Make denote-retrieve-front-matter-* functions handle nil file-type

[ELPA Syncer]

branch: externals/denote
commit 6becb0951ef754783e337869f77640a45ef624fa
Author: Jean-Philippe Gagné Guay <jeanphilippe150@gmail.com>
Commit: Jean-Philippe Gagné Guay <jeanphilippe150@gmail.com>

    Make denote-retrieve-front-matter-* functions handle nil file-type
---
 denote.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/denote.el b/denote.el
index a21f28baa9..61cbf3478f 100644
--- a/denote.el
+++ b/denote.el
@@ -1745,28 +1745,32 @@ Subroutine of `denote--file-with-temp-buffer'."
 (defun denote-retrieve-front-matter-title-value (file file-type)
   "Return title value from FILE front matter per FILE-TYPE."
   (denote--file-with-temp-buffer file
-    (when (re-search-forward (denote--title-key-regexp file-type) nil t 1)
+    (when (and file-type
+               (re-search-forward (denote--title-key-regexp file-type) nil t 
1))
       (funcall (denote--title-value-reverse-function file-type)
                (buffer-substring-no-properties (point) (line-end-position))))))
 
 (defun denote-retrieve-front-matter-title-line (file file-type)
   "Return title line from FILE front matter per FILE-TYPE."
   (denote--file-with-temp-buffer file
-    (when (re-search-forward (denote--title-key-regexp file-type) nil t 1)
+    (when (and file-type
+               (re-search-forward (denote--title-key-regexp file-type) nil t 
1))
       (buffer-substring-no-properties (line-beginning-position) 
(line-end-position)))))
 
 (defun denote-retrieve-front-matter-keywords-value (file file-type)
   "Return keywords value from FILE front matter per FILE-TYPE.
 The return value is a list of strings."
   (denote--file-with-temp-buffer file
-    (when (re-search-forward (denote--keywords-key-regexp file-type) nil t 1)
+    (when (and file-type
+               (re-search-forward (denote--keywords-key-regexp file-type) nil 
t 1))
       (funcall (denote--keywords-value-reverse-function file-type)
                (buffer-substring-no-properties (point) (line-end-position))))))
 
 (defun denote-retrieve-front-matter-keywords-line (file file-type)
   "Return keywords line from FILE front matter per FILE-TYPE."
   (denote--file-with-temp-buffer file
-    (when (re-search-forward (denote--keywords-key-regexp file-type) nil t 1)
+    (when (and file-type
+               (re-search-forward (denote--keywords-key-regexp file-type) nil 
t 1))
       (buffer-substring-no-properties (line-beginning-position) 
(line-end-position)))))
 
 (defalias 'denote-retrieve-title-value 
'denote-retrieve-front-matter-title-value