procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use cl-with-gensyms in with-sqlite-transaction

Browse source 
* lisp/sqlite.el (cl-lib): Require at compile-time.
(with-sqlite-transaction): Use cl-with-gensyms.
This commit is contained in:
Stefan Kangas 2025-02-24 00:55:16 +01:00
parent 0eada9e1d3
commit 637c73d3a8
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/sqlite.el
View file

@ -23,6 +23,8 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(declare-function sqlite-transaction "sqlite.c")
(declare-function sqlite-commit "sqlite.c")
(declare-function sqlite-rollback "sqlite.c")
@ -35,10 +37,7 @@ If BODY signals an error, or transaction commit fails, roll
back the transaction changes before allowing the signal to
propagate."
(declare (indent 1) (debug (form body)))
(let ((db-var (gensym))
(func-var (gensym))
(res-var (gensym))
(commit-var (gensym)))
(cl-with-gensyms (db-var func-var res-var commit-var)
`(let ((,db-var ,db)
(,func-var (lambda () ,@body))
,res-var ,commit-var)