[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 573ec193be 3/3: Speed up multisession--set-value-sqlite slightly
From: |
Lars Ingebrigtsen |
Subject: |
master 573ec193be 3/3: Speed up multisession--set-value-sqlite slightly |
Date: |
Sat, 22 Jan 2022 09:13:36 -0500 (EST) |
branch: master
commit 573ec193be37dbac105c1047c6d52deaa388ac66
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Speed up multisession--set-value-sqlite slightly
* lisp/emacs-lisp/multisession.el
(multisession--set-value-sqlite): Use `readablep'.
---
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 25307594c6..d6f1ab98fa 100644
--- a/lisp/emacs-lisp/multisession.el
+++ b/lisp/emacs-lisp/multisession.el
@@ -218,10 +218,9 @@ DOC should be a doc string, and ARGS are keywords as
applicable to
(let ((print-length nil)
(print-circle t)
(print-level nil))
- (prin1-to-string value))))
- (condition-case nil
- (ignore (read-from-string pvalue))
- (error (error "Unable to store unreadable value: %s" pvalue)))
+ (readablep value))))
+ (when (and value (not pvalue))
+ (error "Unable to store unreadable value: %s" value))
(sqlite-execute
multisession--db
"insert into multisession(package, key, sequence, value) values(?, ?,
1, ?) on conflict(package, key) do update set sequence = sequence + 1, value =
?"