diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-11 09:28:57 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-11 09:28:57 +0100 |
commit | cabb049a5000c62d31628af031b7fb8ae76c9e57 (patch) | |
tree | 6dfe993c32096772da676c3e34cbca1e8c91798e /lisp/sqlite-mode.el | |
parent | d727796e1f7d7af71c898a8cd0d263f9cf34992c (diff) | |
download | emacs-cabb049a5000c62d31628af031b7fb8ae76c9e57.tar.gz |
Add confirmation to sqlite-mode-delete
* lisp/sqlite-mode.el (sqlite-mode-delete): Add confirmation.
Diffstat (limited to 'lisp/sqlite-mode.el')
-rw-r--r-- | lisp/sqlite-mode.el | 2 |
1 files changed, 2 insertions, 0 deletions
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" |