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

diff --git a/sweeprolog.el b/sweeprolog.el
index 50eff18cf2eeea2e8ffaab1ac8c25963f42b0941..bcb3c5c6b43f5453cd0cb125c146ad3a1f23a189 100644 (file)
--- 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)