From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 22 Jan 2023 08:20:13 +0000 (+0200)
Subject: don't use file-name-split for compatibility with older Emacsen
X-Git-Tag: V9.1.3-sweep-0.14.0~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ca714f3c8a8379dd896c255b3e12bbc2d7024cd;p=dict.git

don't use file-name-split for compatibility with older Emacsen
---

diff --git a/sweeprolog.el b/sweeprolog.el
index c05cd78..38fe0e0 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -861,12 +861,7 @@ PROJECT (only on Emacs 28 or later)."
       (when (fboundp 'project-known-project-roots)
         (car (seq-filter
               (lambda (root)
-                (member (car
-                         (reverse
-                          (seq-filter
-                           (lambda (s)
-                             (not (string-empty-p s)))
-                           (file-name-split root))))
+                (member (file-name-base (directory-file-name root))
                         '("swipl" "swipl-devel")))
               (project-known-project-roots)))))))