branch: externals/consult-denote
commit d4dd7a39ff7670b38c17f4a7c34b4d5d4be6823d
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>

    Fix the calling convention of 
denote-get-file-name-relative-to-denote-directory
    
    This is due to changes in denote.git. Thanks to Alan Schmitt for
    bringing this matter to my attention in issue 21:
    <https://github.com/protesilaos/consult-denote/issues/21>.
---
 consult-denote.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/consult-denote.el b/consult-denote.el
index 118d8c644b..b481b79541 100644
--- a/consult-denote.el
+++ b/consult-denote.el
@@ -131,7 +131,7 @@ Return the absolute path to the matching file."
                  :omit-current nil nil roots))
          (relative-files (mapcar
                           (lambda (file)
-                            (denote-get-file-name-relative-to-denote-directory 
file roots))
+                            (denote-get-file-name-relative-to-denote-directory 
file))
                           files))
          (prompt (if single-dir-p
                      (format "%s: " (or prompt-text "Select FILE"))
@@ -178,7 +178,7 @@ completion candidates.  Else use 
`denote-sequence-get-all-files'."
               (relative-files (if single-dir-p
                                   (mapcar
                                    (lambda (file)
-                                     
(denote-get-file-name-relative-to-denote-directory file roots))
+                                     
(denote-get-file-name-relative-to-denote-directory file))
                                    files)
                                 files))
               (prompt (format-prompt (or prompt-text "Select FILE with 
sequence") nil))
@@ -200,7 +200,7 @@ completion candidates.  Else use 
`denote-sequence-get-all-files'."
          (relative-files (if single-dir-p
                              (mapcar
                               (lambda (file)
-                                
(denote-get-file-name-relative-to-denote-directory file roots))
+                                
(denote-get-file-name-relative-to-denote-directory file))
                               files)
                            files))
          (prompt (format-prompt (or prompt-text "Find linked file") nil))

Reply via email to