diff options
| author | Lars Ingebrigtsen | 2021-12-11 09:28:57 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-12-11 09:28:57 +0100 |
| commit | cabb049a5000c62d31628af031b7fb8ae76c9e57 (patch) | |
| tree | 6dfe993c32096772da676c3e34cbca1e8c91798e /lisp/sqlite-mode.el | |
| parent | d727796e1f7d7af71c898a8cd0d263f9cf34992c (diff) | |
| download | emacs-cabb049a5000c62d31628af031b7fb8ae76c9e57.tar.gz emacs-cabb049a5000c62d31628af031b7fb8ae76c9e57.zip | |
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 @@ | |||
| 187 | (when (or (not (consp table)) | 187 | (when (or (not (consp table)) |
| 188 | (not (eq (car table) 'row))) | 188 | (not (eq (car table) 'row))) |
| 189 | (user-error "No row under point")) | 189 | (user-error "No row under point")) |
| 190 | (unless (yes-or-no-p "Really delete the row under point? ") | ||
| 191 | (error "Not deleting")) | ||
| 190 | (sqlite-execute | 192 | (sqlite-execute |
| 191 | sqlite--db | 193 | sqlite--db |
| 192 | (format "delete from %s where %s" | 194 | (format "delete from %s where %s" |