diff options
| author | Lars Ingebrigtsen | 2021-12-12 05:55:35 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-12-12 05:55:35 +0100 |
| commit | 4b29468dbef63f2befd7f67663a11cd5a3009b79 (patch) | |
| tree | a5aa91b52f090f8b712e9d1f9725451484ebba69 /lisp/sqlite-mode.el | |
| parent | 6656a4d161027cbea3ac21c0d2882eaa357034b0 (diff) | |
| download | emacs-4b29468dbef63f2befd7f67663a11cd5a3009b79.tar.gz emacs-4b29468dbef63f2befd7f67663a11cd5a3009b79.zip | |
Tweak erroring in sqlite-mode-delete
* lisp/sqlite-mode.el (sqlite-mode-delete): Use user-error instead
of error for user-level stuff.
Diffstat (limited to 'lisp/sqlite-mode.el')
| -rw-r--r-- | lisp/sqlite-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/sqlite-mode.el b/lisp/sqlite-mode.el index 6b5c32234a4..834a8022131 100644 --- a/lisp/sqlite-mode.el +++ b/lisp/sqlite-mode.el | |||
| @@ -188,7 +188,7 @@ | |||
| 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? ") | 190 | (unless (yes-or-no-p "Really delete the row under point? ") |
| 191 | (error "Not deleting")) | 191 | (user-error "Not deleting")) |
| 192 | (sqlite-execute | 192 | (sqlite-execute |
| 193 | sqlite--db | 193 | sqlite--db |
| 194 | (format "delete from %s where %s" | 194 | (format "delete from %s where %s" |