diff options
| author | Lars Ingebrigtsen | 2021-12-11 08:18:02 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-12-11 08:18:09 +0100 |
| commit | 5d476a9ed892e390e05eab73e7b57a4b879a1780 (patch) | |
| tree | 7e7f506387db2d6ae9b225b6dfa37e34b2e715c5 | |
| parent | 7cbda71617f52adde8872c6d2d260e94e4b52edd (diff) | |
| download | emacs-5d476a9ed892e390e05eab73e7b57a4b879a1780.tar.gz emacs-5d476a9ed892e390e05eab73e7b57a4b879a1780.zip | |
Add FIXME comment
* lisp/sqlite-mode.el (sqlite-mode-delete): New command.
(sqlite--mode--list-data, sqlite-mode-list-data): Adjust to new
command.
| -rw-r--r-- | lisp/sqlite-mode.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/sqlite-mode.el b/lisp/sqlite-mode.el index 5e0410e4830..48916b23116 100644 --- a/lisp/sqlite-mode.el +++ b/lisp/sqlite-mode.el | |||
| @@ -178,7 +178,10 @@ | |||
| 178 | (when (or (not (consp table)) | 178 | (when (or (not (consp table)) |
| 179 | (not (eq (car table) 'row))) | 179 | (not (eq (car table) 'row))) |
| 180 | (user-error "No row under point")) | 180 | (user-error "No row under point")) |
| 181 | ;; We have to remove all open statements before we can delete something. | 181 | ;; We have to remove all open statements before we can delete |
| 182 | ;; something. FIXME -- perhaps this should be changed not to use | ||
| 183 | ;; long-lived statements, since this presumably locks the file for | ||
| 184 | ;; other users, too. | ||
| 182 | (dolist (stmt sqlite-mode--statements) | 185 | (dolist (stmt sqlite-mode--statements) |
| 183 | (ignore-errors (sqlite-finalize stmt))) | 186 | (ignore-errors (sqlite-finalize stmt))) |
| 184 | (setq sqlite-mode--statements nil) | 187 | (setq sqlite-mode--statements nil) |