[elpa] externals/denote 19a0566e07 3/3: Use helper function to prompt for regexp in denote-org-dblock.el

[ELPA Syncer]

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

    Use helper function to prompt for regexp in denote-org-dblock.el
---
 denote-org-dblock.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/denote-org-dblock.el b/denote-org-dblock.el
index 1244ff0895..ebb30e084a 100644
--- a/denote-org-dblock.el
+++ b/denote-org-dblock.el
@@ -42,12 +42,14 @@
 
 ;;;; Dynamic block to insert links
 
+(defun denote-org-dblock--file-regexp-prompt ()
+  "Prompt for regexp to match Denote file names."
+  (read-regexp "Search for notes matching REGEX: " nil 
'denote-link--add-links-history))
+
 ;;;###autoload
 (defun denote-org-dblock-insert-links (regexp)
   "Create Org dynamic block to insert Denote links matching REGEXP."
-  (interactive
-    (list
-     (read-regexp "Search for notes matching REGEX: " nil 
'denote-link--add-links-history)))
+  (interactive (list (denote-org-dblock--file-regexp-prompt)))
   (org-create-dblock (list :name "denote-links"
                            :regexp regexp
                            :id-only nil))
@@ -158,9 +160,7 @@ as a typographic list."
 ;;;###autoload
 (defun denote-org-dblock-insert-files (regexp)
   "Create Org dynamic block to insert Denote files matching REGEXP."
-  (interactive
-    (list
-     (read-regexp "Search for notes matching REGEX: " nil 
'denote--file-history)))
+  (interactive (list (denote-org-dblock--file-regexp-prompt)))
   (org-create-dblock (list :name "denote-files"
                            :regexp regexp
                            :no-front-matter nil