[elpa] externals/denote 07c4a1d426 4/6: Prevent infinite loop in denote--find-first-unused-id

[ELPA Syncer]

branch: externals/denote
commit 07c4a1d4263b9b2f337b545f04de26550d617f69
Author: Jean-Philippe Gagné Guay <jeanphilippe...@gmail.com>
Commit: Jean-Philippe Gagné Guay <jeanphilippe...@gmail.com>

    Prevent infinite loop in denote--find-first-unused-id
---
 denote.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index ed0fc72195..ef64c0e2f2 100644
--- a/denote.el
+++ b/denote.el
@@ -2102,8 +2102,13 @@ It checks files in variable `denote-directory' and 
active buffer files."
 If ID is already used, increment it 1 second at a time until an
 available id is found."
   (let ((used-ids (or denote--used-ids (denote--get-all-used-ids)))
-        (current-id id))
+        (current-id id)
+        (iteration 0))
     (while (gethash current-id used-ids)
+      ;; Prevent infinite loop if `denote-id-format' is misconfigured
+      (setq iteration (1+ iteration))
+      (when (>= iteration 10000)
+        (user-error "A unique identifier could not be found"))
       (setq current-id (denote-get-identifier (time-add (date-to-time 
current-id) 1))))
     current-id))