From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 11 Dec 2021 08:28:57 +0000 (+0100)
Subject: Add confirmation to sqlite-mode-delete
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~4043^2~7
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=cabb049a5000c62d31628af031b7fb8ae76c9e57;p=emacs.git

Add confirmation to sqlite-mode-delete

* lisp/sqlite-mode.el (sqlite-mode-delete): Add confirmation.
---

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"