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

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

[elpa] externals/detached c2c2cc5d48 3/3: Add message when all directori


From: ELPA Syncer
Subject: [elpa] externals/detached c2c2cc5d48 3/3: Add message when all directories are initialized
Date: Wed, 5 Oct 2022 15:57:29 -0400 (EDT)

branch: externals/detached
commit c2c2cc5d488cb5ac9b83621dfc50a1ec99391ec9
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    Add message when all directories are initialized
---
 detached-list.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/detached-list.el b/detached-list.el
index caa6cc689e..00c7a7ff9f 100644
--- a/detached-list.el
+++ b/detached-list.el
@@ -105,7 +105,7 @@ detached list implements."
 
 Optionally initialize ALL session-directories."
   (interactive "P")
-  (when-let* ((uninitialized-directories
+  (if-let* ((uninitialized-directories
                (thread-last (detached-get-sessions)
                             (seq-filter #'detached--uninitialized-session-p)
                             (seq-map #'detached--session-directory)
@@ -113,7 +113,8 @@ Optionally initialize ALL session-directories."
     (if all
         (seq-do #'detached-list--initialize-directory 
uninitialized-directories)
       (when-let ((directory (completing-read "Initialize directory: " 
uninitialized-directories)))
-        (detached-list--initialize-directory directory)))))
+        (detached-list--initialize-directory directory)))
+    (message "All session directories have been initialized")))
 
 (defun detached-list-edit-annotation (session)
   "Edit SESSION's annotation."



reply via email to

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