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 6714f41f6fe750806ded11d7deaf81d64d88b8d1..61398c180f7323a87a7dfee36c4a2d7fea875add 100644 (file)
--- 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"