branch: externals/gnosis
commit a3ea1a68110a76ad516a8beb66e2cf7fe1851144
Author: Thanos Apollo <[email protected]>
Commit: Thanos Apollo <[email protected]>
[fix] gnosis--delete: nil where delete handling.
---
gnosis.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/gnosis.el b/gnosis.el
index 74789a541a..c19b8b23b2 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -332,9 +332,11 @@ Example:
"Return caar of VALUE from TABLE, optionally with where RESTRICTIONS."
(caar (gnosis-select value table restrictions)))
-(defun gnosis--delete (table value)
- "From TABLE use where to delete VALUE."
- (emacsql (gnosis--ensure-db) `[:delete :from ,table :where ,value]))
+(defun gnosis--delete (table &optional where)
+ "Delete from TABLE, optionally restricted by WHERE clause."
+ (if where
+ (emacsql (gnosis--ensure-db) `[:delete :from ,table :where ,where])
+ (emacsql (gnosis--ensure-db) `[:delete :from ,table])))
(defun gnosis-delete-thema (id &optional verification)
"Delete thema with ID.
