From 9e3c8b4bf4e66d55f72a0a1d556b29ea2de11e4c Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Thu, 8 Jun 2023 20:33:55 +0300 Subject: [PATCH] Give a better name to 'sweeprolog--mfn-to-functor-arity' * sweeprolog.el (sweeprolog--pi-to-functor-arity): New function, renamed from 'sweeprolog--mfn-to-functor-arity'. (sweeprolog-native-predicate-location): Use it. --- sweeprolog.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sweeprolog.el b/sweeprolog.el index 36e011e..7a90875 100644 --- a/sweeprolog.el +++ b/sweeprolog.el @@ -906,7 +906,7 @@ PROJECT (only on Emacs 28 or later)." (sweeprolog-xref-project-source-files) (sweeprolog--query-once "sweep" "sweep_predicate_references" mfn)) -(defun sweeprolog--mfn-to-functor-arity (mfn) +(defun sweeprolog--pi-to-functor-arity (mfn) (pcase (sweeprolog--query-once "system" "term_string" mfn t) (`(compound ":" (atom . ,_) @@ -931,7 +931,7 @@ PROJECT (only on Emacs 28 or later)." (project-known-project-roots))))))) (defun sweeprolog-native-predicate-location (mfn) - (let ((functor-arity (sweeprolog--mfn-to-functor-arity mfn))) + (let ((functor-arity (sweeprolog--pi-to-functor-arity mfn))) (when-let ((default-directory (sweeprolog--swipl-source-directory)) (match (car (xref-matches-in-files -- 2.39.5