From: Eshel Yaron Date: Thu, 8 Jun 2023 17:33:55 +0000 (+0300) Subject: Give a better name to 'sweeprolog--mfn-to-functor-arity' X-Git-Tag: V9.1.10-sweep-0.19.0~4 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9e3c8b4bf4e66d55f72a0a1d556b29ea2de11e4c;p=sweep.git 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. --- 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