branch: elpa/sweeprolog
commit a0e25cad5f22168bd37d774d4f8aa98108b025a2
Author: Eshel Yaron <[email protected]>
Commit: Eshel Yaron <[email protected]>
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)
