From cabb049a5000c62d31628af031b7fb8ae76c9e57 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 11 Dec 2021 09:28:57 +0100
Subject: [PATCH] Add confirmation to sqlite-mode-delete

* lisp/sqlite-mode.el (sqlite-mode-delete): Add confirmation.
---
 lisp/sqlite-mode.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/sqlite-mode.el b/lisp/sqlite-mode.el
index 6714f41f6fe..61398c180f7 100644
--- a/lisp/sqlite-mode.el
+++ b/lisp/sqlite-mode.el
@@ -187,6 +187,8 @@
     (when (or (not (consp table))
               (not (eq (car table) 'row)))
       (user-error "No row under point"))
+    (unless (yes-or-no-p "Really delete the row under point? ")
+      (error "Not deleting"))
     (sqlite-execute
      sqlite--db
      (format "delete from %s where %s"
-- 
2.39.5