[nongnu] elpa/sweeprolog a0e25cad5f 3/4: Adapt 'derived-mode-p' calls to Emacs 30.1 calling convention

[ELPA Syncer]

branch: elpa/sweeprolog
commit a0e25cad5f22168bd37d774d4f8aa98108b025a2
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    Adapt 'derived-mode-p' calls to Emacs 30.1 calling convention
---
 sweeprolog.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 50eff18cf2..bcb3c5c6b4 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)