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

diff --git a/lisp/sqlite-mode.el b/lisp/sqlite-mode.el
index 8cb944853693f85d34a80be53f7b926547dddbf0..71c9e57fc12d2404aee1c8c1adbfc572be3870c9 100644 (file)
--- 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 ()