From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 26 Nov 2023 10:50:35 +0000 (+0100)
Subject: Adapt 'derived-mode-p' calls to Emacs 30.1 calling convention
X-Git-Tag: V9.1.19-sweep-0.27.2~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0e25cad5f22168bd37d774d4f8aa98108b025a2;p=sweep.git

Adapt 'derived-mode-p' calls to Emacs 30.1 calling convention
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 50eff18..bcb3c5c 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1139,7 +1139,8 @@ the prefix argument."
   (sweeprolog-path-module (buffer-file-name buffer)))
 
 (defun sweeprolog-identifier-at-point (&optional point)
-  (when (derived-mode-p 'sweeprolog-mode 'sweeprolog-top-level-mode)
+  (when (or (derived-mode-p 'sweeprolog-mode)
+            (derived-mode-p 'sweeprolog-top-level-mode))
     (setq point (or point (point)))
     (save-excursion
       (goto-char point)
@@ -5961,7 +5962,8 @@ moving point."
                                         (- point start))))))))
 
 (defun sweeprolog-goals-at-point (&optional point)
-  (when (derived-mode-p 'sweeprolog-mode 'sweeprolog-top-level-mode)
+  (when (or (derived-mode-p 'sweeprolog-mode)
+            (derived-mode-p 'sweeprolog-top-level-mode))
     (setq point (or point (point)))
     (save-excursion
       (goto-char point)