From 015a160f2a259cf7c7a723a6135a6f5e839d329e Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Fri, 19 Jan 2024 00:51:17 +0200
Subject: Revert "gnosis-db-init: Redo without length="

This reverts commit 2473e9127a8f8ece2bcb1052d5450834bbbbb4c8.

During the this pull request on MELPA
<https://github.com/melpa/melpa/pull/8890>

Nicholas Vollmer pointed out that length= does not exist in Emacs <
28.1, but since we are using compat we can still use it.

This was also suggested by Philip Kaludercic in this email in
emacs-devel:

<https://lists.gnu.org/archive/html/emacs-devel/2024-01/msg00682.html>

I verified this by running emacs-27.2, length= was available thanks to
compat
---
 gnosis.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnosis.el b/gnosis.el
index 08e803c..24a8309 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1377,7 +1377,7 @@ review."
     ;; Make sure gnosis-db is initialized
     (setf gnosis-db (emacsql-sqlite (concat (file-name-as-directory gnosis-dir) "gnosis.db"))))
   ;; Create database tables
-  (unless (= (length (emacsql gnosis-db [:select name :from sqlite-master :where (= type table)])) 6)
+  (unless (length= (emacsql gnosis-db [:select name :from sqlite-master :where (= type table)]) 6)
     ;; Enable foreign keys
     (emacsql gnosis-db "PRAGMA foreign_keys = ON")
     ;; Gnosis version
-- 
cgit v1.2.3