branch: externals/denote
commit 36cb4234dd6bc1644166d63b9e72fa5f62331c50
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>

    Change where 'denote-sequence' does the signature extraction
    
    We want this to happen for Lisp calls as well.
---
 denote-sequence.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/denote-sequence.el b/denote-sequence.el
index c841ed8757..60bb6fc569 100644
--- a/denote-sequence.el
+++ b/denote-sequence.el
@@ -220,11 +220,12 @@ Files available at the minibuffer prompt are those 
returned by
      (list
       selected-type
       (when (memq selected-type (delq 'parent denote-sequence-types))
-        (denote-retrieve-filename-signature (denote-sequence-file-prompt))))))
+        (denote-sequence-file-prompt)))))
   ;; TODO 2024-12-30: Do we need to wrap this in the following?
   ;;
   ;; (cl-letf (((alist-get 'signature denote-file-name-slug-functions) 
#'denote-sluggify-signature))
-  (let* ((new-sequence (denote-sequence-get type file-with-sequence))
+  (let* ((sequence (denote-retrieve-filename-signature file-with-sequence))
+         (new-sequence (denote-sequence-get type sequence))
          (denote-use-signature new-sequence))
     (call-interactively 'denote)))
 

Reply via email to