From a0e25cad5f22168bd37d774d4f8aa98108b025a2 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 26 Nov 2023 11:50:35 +0100 Subject: [PATCH] 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 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) -- 2.39.5