Call customized function correctly

ref EFLS#90

zetteldeft.org

@@ -854,7 +854,7 @@ Based on =deft-find-file=.
 (defun zetteldeft-find-file (file)
   "Open deft file FILE."
   (interactive
-    (list (zetteldeft-completing-read "Deft find file: "
+    (list (funcall zetteldeft-completing-read "Deft find file: "
             (deft-find-all-files-no-prefix))))
   (deft-find-file file))
 #+END_SRC
@@ -898,7 +898,7 @@ Based on =deft-find-file=.
 (defun zetteldeft-find-file-id-insert (file)
   "Find deft file FILE and insert a link."
   (interactive (list
-    (zetteldeft-completing-read "File to insert id from: "
+    (funcall zetteldeft-completing-read "File to insert id from: "
       (deft-find-all-files-no-prefix))))
   (zetteldeft--insert-link (zetteldeft--lift-id file)))
 #+END_SRC
@@ -975,7 +975,7 @@ The backlink appears on a new line.
 Finds the title line, and adds `backlink-prefix' with
 ID and title on a new line."
   (interactive (list
-    (zetteldeft-completing-read "File to add backlink to: "
+    (funcall zetteldeft-completing-read "File to add backlink to: "
       (deft-find-all-files-no-prefix))))
   (save-excursion
     (goto-char (funcall zetteldeft-backlink-location-function))
@@ -998,7 +998,7 @@ Based on =deft-find-file=.
 (defun zetteldeft-find-file-full-title-insert (file)
   "Find deft file FILE and insert a link with title."
   (interactive (list
-    (zetteldeft-completing-read "File to insert full title from: "
+    (funcall zetteldeft-completing-read "File to insert full title from: "
       (deft-find-all-files-no-prefix))))
   (zetteldeft--insert-link
     (zetteldeft--lift-id file)
@@ -1085,7 +1085,7 @@ Note that the file is only actually created when =save-buffer= is called.
              (all-choices (flatten-list (list create-new-note
                                               try-again
                                               (deft-find-all-files-no-prefix))))
-             (choice (zetteldeft-completing-read "Choose: " all-choices :initial-input str :preselect 1)))
+             (choice (funcall zetteldeft-completing-read "Choose: " all-choices :initial-input str :preselect 1)))
       (list try-again create-new-note choice)))
 
 (defun zetteldeft--upsert (str find-file-func new-file-func calling-func)
@@ -2638,7 +2638,7 @@ When called interactively, select a file from the completion interface.
 (defun zetteldeft-org-graph-note (deftFile)
   "Create a graph starting from note DEFTFILE."
   (interactive (list
-    (zetteldeft-completing-read "Note to start graph from: "
+    (funcall zetteldeft-completing-read "Note to start graph from: "
       (deft-find-all-files))))
   (setq zetteldeft--graph-links (list))
   (insert zetteldeft-graph-syntax-begin)