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

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

[elpa] externals/detached 950b1533ab 21/22: Update name of database file


From: ELPA Syncer
Subject: [elpa] externals/detached 950b1533ab 21/22: Update name of database file
Date: Mon, 30 May 2022 10:57:32 -0400 (EDT)

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

    Update name of database file
---
 detached.el           | 6 +++---
 test/detached-test.el | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/detached.el b/detached.el
index deebce7329..0c3cede012 100644
--- a/detached.el
+++ b/detached.el
@@ -1055,7 +1055,7 @@ Optionally make the path LOCAL to host."
 
 (defun detached--db-initialize ()
   "Return all sessions stored in database."
-  (let ((db (expand-file-name "detached.db" detached-db-directory)))
+  (let ((db (expand-file-name "detached-sessions.db" detached-db-directory)))
     (when (file-exists-p db)
       (with-temp-buffer
         (insert-file-contents db)
@@ -1107,7 +1107,7 @@ Optionally make the path LOCAL to host."
 (defun detached--db-update-sessions ()
   "Write `detached--sessions' to database."
   (detached-initialize-sessions)
-  (let ((db (expand-file-name "detached.db" detached-db-directory)))
+  (let ((db (expand-file-name "detached-sessions.db" detached-db-directory)))
     (with-temp-file db
       (insert (format ";; Detached Session Version: %s\n\n" 
detached-session-version))
       (prin1 detached--sessions (current-buffer)))))
@@ -1318,7 +1318,7 @@ session and trigger a state transition."
 If event is cased by an update to the `detached' database, re-initialize
 `detached--sessions'."
   (pcase-let* ((`(,_descriptor ,action ,file) event)
-               (database-updated (and (string-match "detached.db$" file)
+               (database-updated (and (string-match "detached-sessions.db$" 
file)
                                       (or (eq 'attribute-changed action)
                                           (eq 'changed action)))))
     (when database-updated
diff --git a/test/detached-test.el b/test/detached-test.el
index 7b7989d5c2..fb6c2ce012 100644
--- a/test/detached-test.el
+++ b/test/detached-test.el
@@ -31,7 +31,7 @@
 (defmacro detached-test--with-temp-database (&rest body)
   "Initialize a detached database and evaluate BODY."
   `(let* ((temp-directory (make-temp-file "detached" t))
-          (detached-db-directory (expand-file-name "detached.db" 
temp-directory))
+          (detached-db-directory (expand-file-name "detached-sessions.db" 
temp-directory))
           (detached-session-directory (expand-file-name "sessions" 
temp-directory))
           (detached--sessions)
           (detached--sessions-initialized))



reply via email to

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