emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/denote 3934b167d2 16/27: Placate the compiler for minor


From: ELPA Syncer
Subject: [elpa] externals/denote 3934b167d2 16/27: Placate the compiler for minor warnings
Date: Sun, 3 Jul 2022 00:57:35 -0400 (EDT)

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

    Placate the compiler for minor warnings
---
 denote.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/denote.el b/denote.el
index 26f0168c34..ac59b77955 100644
--- a/denote.el
+++ b/denote.el
@@ -94,6 +94,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl-lib))
+
 (defgroup denote ()
   "Simple notes with an efficient file-naming scheme."
   :group 'files)
@@ -352,9 +354,10 @@ names that are relative to the variable 
`denote-directory'."
        (lambda (s) (denote--file-name-relative-to-denote-directory s))
        files))))
 
-(defun denote--get-note-path-by-id(id)
-  "Given an ID, return the absolute path of the corresponding note
-in `denote-directory'."
+(declare-function cl-find-if "cl-seq" (cl-pred cl-list &rest cl-keys))
+
+(defun denote--get-note-path-by-id (id)
+  "Return the absolute path of ID note in variable `denote-directory'."
   (cl-find-if (lambda (f) (string-prefix-p id (file-name-nondirectory f)))
               (denote--directory-files :absolute)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]