[elpa] externals/denote 59ccadd7a4 1/4: Harden the conditionality of denote--valid-file-type

[ELPA Syncer]

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

    Harden the conditionality of denote--valid-file-type
---
 denote.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/denote.el b/denote.el
index 3fb3faba96..1f102ce806 100644
--- a/denote.el
+++ b/denote.el
@@ -1617,12 +1617,16 @@ TEMPLATE, and SIGNATURE should be valid for note 
creation."
                         (expand-file-name directory))))
 
 (defun denote--valid-file-type (filetype)
-  "Return a valid filetype given the argument FILETYPE.
+  "Return a valid filetype symbol given the argument FILETYPE.
 If none is found, the first element of `denote-file-types' is
 returned."
-  (if (memq filetype (mapcar 'car denote-file-types))
-      filetype
-    (caar denote-file-types)))
+  (let ((type (cond
+               ((stringp filetype) (intern filetype))
+               ((symbolp filetype) filetype)
+               (t (error "The `%s' is neither a string nor a symbol" 
filetype)))))
+    (if (memq type (denote--file-type-keys))
+        type
+      (caar denote-file-types))))
 
 (defun denote--date-add-current-time (date)
   "Add current time to DATE, if necessary.