[elpa] externals/denote 8e4a8ee69b 15/17: Refactor denote--link-in-context-regexp

[ELPA Syncer]

branch: externals/denote
commit 8e4a8ee69bf35c8559af860c5e47593ef3d728df
Author: Jean-Philippe Gagné Guay <jeanphilippe...@gmail.com>
Commit: Jean-Philippe Gagné Guay <jeanphilippe...@gmail.com>

    Refactor denote--link-in-context-regexp
---
 denote.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/denote.el b/denote.el
index e1b75839e5..59baed5623 100644
--- a/denote.el
+++ b/denote.el
@@ -1283,9 +1283,12 @@ for new note creation.  The default is `org'.")
 
 (defun denote--link-in-context-regexp (file-type)
   "Return link regexp in context based on FILE-TYPE."
-  (plist-get
-   (alist-get file-type denote-file-types)
-   :link-in-context-regexp))
+  (let ((prop (plist-get
+               (alist-get file-type denote-file-types)
+               :link-in-context-regexp)))
+    (if (symbolp prop)
+        (symbol-value prop)
+      prop)))
 
 (define-obsolete-function-alias
   'denote--extensions
@@ -3075,10 +3078,9 @@ function."
 (defun denote-link--expand-identifiers (regexp)
   "Expend identifiers matching REGEXP into file paths."
   (let ((files (denote-directory-files))
-        (rx (if (symbolp regexp) (symbol-value regexp) regexp))
         found-files)
     (dolist (file files)
-      (dolist (i (denote-link--collect-identifiers rx))
+      (dolist (i (denote-link--collect-identifiers regexp))
         (when (string-prefix-p i (file-name-nondirectory file))
           (push file found-files))))
     found-files))