diff options
| -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" |