detect features instead

wyuenho · Sep 5, 2023 · 6d7f2ea · 6d7f2ea
1 parent 56ae1c5
commit 6d7f2ea
Showing 1 changed file with 21 additions and 23 deletions.
diff --git a/pet.el b/pet.el
@@ -436,29 +436,27 @@ project has hook ID set up."
   "Parse `pre-commit' database.
 
 Read the pre-commit SQLite database located at DB-FILE into an alist."
-  (if (or (< emacs-major-version 29)
-          (and (functionp 'sqlite-available-p)
-               (not (sqlite-available-p))))
-
-      (condition-case err
-          (with-temp-buffer
-            (call-process "sqlite3" nil t nil "-json" db-file "select * from repos")
-            (pet-parse-json (buffer-string)))
-        (error (pet-report-error err)))
-
-    (let ((db (sqlite-open db-file)))
-      (unwind-protect
-          (let* ((result-set (sqlite-select db "select * from repos" nil 'set))
-                 result
-                 row)
-            (while (setq row (sqlite-next result-set))
-              (setq result (cons (seq-mapn (lambda (a b) (cons (intern a) b))
-                                           (sqlite-columns result-set)
-                                           row)
-                                 result)))
-            (sqlite-finalize result-set)
-            result)
-        (sqlite-close db)))))
+  (if (and (functionp 'sqlite-available-p)
+           (sqlite-available-p))
+      (let ((db (sqlite-open db-file)))
+        (unwind-protect
+            (let* ((result-set (sqlite-select db "select * from repos" nil 'set))
+                   result
+                   row)
+              (while (setq row (sqlite-next result-set))
+                (setq result (cons (seq-mapn (lambda (a b) (cons (intern a) b))
+                                             (sqlite-columns result-set)
+                                             row)
+                                   result)))
+              (sqlite-finalize result-set)
+              result)
+          (sqlite-close db)))
+
+    (condition-case err
+        (with-temp-buffer
+          (call-process "sqlite3" nil t nil "-json" db-file "select * from repos")
+          (pet-parse-json (buffer-string)))
+      (error (pet-report-error err)))))
 
 (defvar pet-pre-commit-database-cache nil)