emacs-29 d9a1175a611: Close SQL database when corresponding 'sqlite-mode' buffer is killed

[Eli Zaretskii]

branch: emacs-29
commit d9a1175a611876b5e1625e982720360b5c3a5b6f
Author: Thomas Hilke <t.hilke@rollomatic.ch>
Commit: Eli Zaretskii <eliz@gnu.org>

    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
---
 lisp/sqlite-mode.el | 1 +
 1 file changed, 1 insertion(+)

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 ()