diff options
| author | Thomas Hilke <t.hilke@rollomatic.ch> | 2023-09-15 10:30:25 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-09-16 13:20:45 +0300 |
| commit | d9a1175a611876b5e1625e982720360b5c3a5b6f (patch) | |
| tree | 74a8313b21ad23633d5d431f87feefe076dd0068 /lisp | |
| parent | cbd8fac283aa6573501d7b17b50ec4a83d9cf1e3 (diff) | |
| download | emacs-d9a1175a611876b5e1625e982720360b5c3a5b6f.tar.gz emacs-d9a1175a611876b5e1625e982720360b5c3a5b6f.tar.bz2 emacs-d9a1175a611876b5e1625e982720360b5c3a5b6f.zip | |
Close SQL database when corresponding 'sqlite-mode' buffer is killed
* lisp/sqlite-mode.el (sqlite-mode-open-file): Close DB when the
buffer is killed. (Bug#65998)
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/sqlite-mode.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/sqlite-mode.el b/lisp/sqlite-mode.el index 8cb94485369..71c9e57fc12 100644 --- a/lisp/sqlite-mode.el +++ b/lisp/sqlite-mode.el @@ -63,6 +63,7 @@ (setq-local sqlite--db (sqlite-open file)) (unless (sqlitep sqlite--db) (error "`sqlite-open' failed to open SQLite file")) + (add-hook 'kill-buffer-hook (lambda () (sqlite-close sqlite--db)) nil t) (sqlite-mode-list-tables)) (defun sqlite-mode-list-tables () |