diff options
| author | Eli Zaretskii | 2023-11-24 09:30:53 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2023-11-24 09:30:53 +0200 |
| commit | e6ad97a3338c22224eb0da3f0d3226be255298a7 (patch) | |
| tree | 5a18eda531223f18b0aa35e7253af90a45332eff | |
| parent | 1978b603bc3068140833e478a8103fea1d185aec (diff) | |
| download | emacs-e6ad97a3338c22224eb0da3f0d3226be255298a7.tar.gz emacs-e6ad97a3338c22224eb0da3f0d3226be255298a7.zip | |
Fix byte-compilation warnings about 'sqlite-rollback'
* lisp/sqlite.el (sqlite-transaction, sqlite-commit)
(sqlite-rollback): Declare.
* lisp/emacs-lisp/multisession.el (sqlite-commit)
(sqlite-transaction): Remove declaration.
| -rw-r--r-- | lisp/emacs-lisp/multisession.el | 2 | ||||
| -rw-r--r-- | lisp/sqlite.el | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/multisession.el b/lisp/emacs-lisp/multisession.el index b09777be407..4f95fc91dd8 100644 --- a/lisp/emacs-lisp/multisession.el +++ b/lisp/emacs-lisp/multisession.el | |||
| @@ -137,8 +137,6 @@ DOC should be a doc string, and ARGS are keywords as applicable to | |||
| 137 | (declare-function sqlite-select "sqlite.c") | 137 | (declare-function sqlite-select "sqlite.c") |
| 138 | (declare-function sqlite-open "sqlite.c") | 138 | (declare-function sqlite-open "sqlite.c") |
| 139 | (declare-function sqlite-pragma "sqlite.c") | 139 | (declare-function sqlite-pragma "sqlite.c") |
| 140 | (declare-function sqlite-transaction "sqlite.c") | ||
| 141 | (declare-function sqlite-commit "sqlite.c") | ||
| 142 | 140 | ||
| 143 | (defvar multisession--db nil) | 141 | (defvar multisession--db nil) |
| 144 | 142 | ||
diff --git a/lisp/sqlite.el b/lisp/sqlite.el index 8a525739c9a..22a0355d3cd 100644 --- a/lisp/sqlite.el +++ b/lisp/sqlite.el | |||
| @@ -23,6 +23,10 @@ | |||
| 23 | 23 | ||
| 24 | ;;; Code: | 24 | ;;; Code: |
| 25 | 25 | ||
| 26 | (declare-function sqlite-transaction "sqlite.c") | ||
| 27 | (declare-function sqlite-commit "sqlite.c") | ||
| 28 | (declare-function sqlite-rollback "sqlite.c") | ||
| 29 | |||
| 26 | (defmacro with-sqlite-transaction (db &rest body) | 30 | (defmacro with-sqlite-transaction (db &rest body) |
| 27 | "Execute BODY while holding a transaction for DB. | 31 | "Execute BODY while holding a transaction for DB. |
| 28 | If BODY completes normally, commit the changes and return | 32 | If BODY completes normally, commit the changes and return |