scratch/sqlite ebb7c46: Fix files value deletion

[Lars Ingebrigtsen]

branch: scratch/sqlite
commit ebb7c462f1f35ffc9f569d2675e7c1842e421fe2
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix files value deletion
---
 lisp/emacs-lisp/multisession.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lisp/emacs-lisp/multisession.el b/lisp/emacs-lisp/multisession.el
index e0fd6c1..b8f899f 100644
--- a/lisp/emacs-lisp/multisession.el
+++ b/lisp/emacs-lisp/multisession.el
@@ -289,7 +289,7 @@ DOC should be a doc string, and ARGS are keywords as 
applicable to
 (cl-defmethod multisession--backend-values ((_type (eql files)))
   (mapcar (lambda (file)
             (let ((bits (file-name-split file)))
-              (list (url-unhex-string (car (last bits 1)))
+              (list (url-unhex-string (car (last bits 2)))
                     (url-unhex-string
                      (file-name-sans-extension (car (last bits))))
                     (with-temp-buffer
@@ -302,9 +302,8 @@ DOC should be a doc string, and ARGS are keywords as 
applicable to
 
 (cl-defmethod multisession--backend-delete ((_type (eql files)) id)
   (let ((file (multisession--object-file-name
-               (make-instance 'multisession
-                              :package (car id)
-                              :key (cadr id)))))
+               (make-multisession :package (intern (car id))
+                                  :key (intern (cadr id))))))
     (when (file-exists-p file)
       (delete-file file))))