[elpa] externals/denote 1971ffeacd 2/2: Refine denote--title-history

[ELPA Syncer]

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

    Refine denote--title-history
---
 denote.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/denote.el b/denote.el
index 4ee37c25b0..4e0edaf166 100644
--- a/denote.el
+++ b/denote.el
@@ -1165,10 +1165,11 @@ When called from Lisp, all arguments are optional.
 (defun denote--title-prompt (&optional default-title)
   "Read file title for `denote'.
 With optional DEFAULT-TITLE use it as the default value."
-  (let ((format (if (and default-title (not (string-empty-p default-title)))
-                    (format "File title [%s]: " default-title)
-                  "File title: ")))
-    (read-string format nil 'denote--title-history default-title)))
+  (let* ((def default-title)
+         (format (if (and def (not (string-empty-p def)))
+                     (format "File title [%s]: " def)
+                   "File title: ")))
+    (read-string format nil 'denote--title-history def)))
 
 (defvar denote--file-type-history nil
   "Minibuffer history of `denote--file-type-prompt'.")