diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-22 15:13:19 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-22 15:13:27 +0100 |
| commit | 573ec193be37dbac105c1047c6d52deaa388ac66 (patch) | |
| tree | 46c13d4ded10cc4852966b161c850bfc244df6c3 /lisp/emacs-lisp/multisession.el | |
| parent | f047d3c5137e75ea22713e1e7a6f715e6544299a (diff) | |
| download | emacs-573ec193be37dbac105c1047c6d52deaa388ac66.tar.gz emacs-573ec193be37dbac105c1047c6d52deaa388ac66.tar.bz2 emacs-573ec193be37dbac105c1047c6d52deaa388ac66.zip | |
Speed up multisession--set-value-sqlite slightly
* lisp/emacs-lisp/multisession.el
(multisession--set-value-sqlite): Use `readablep'.
Diffstat (limited to 'lisp/emacs-lisp/multisession.el')
| -rw-r--r-- | lisp/emacs-lisp/multisession.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/multisession.el b/lisp/emacs-lisp/multisession.el index 25307594c6d..d6f1ab98faa 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 = ?" |