From 15ee30e92048ebdab71366eaefd48c689ddc014a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 6 May 2024 13:54:19 +0300 Subject: [PATCH] ; Avoid byte-compiler warning in comp.el * lisp/emacs-lisp/comp.el (comp--symbol-func-to-fun): Move to before its first use. (cherry picked from commit 74ebd729c7b8a4b957ab9eebc603c69d6aac00be) --- lisp/emacs-lisp/comp.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index e69de84362e..fa866b802cc 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -189,6 +189,11 @@ Useful to hook into pass checkers.") finally return h) "Hash table function -> `comp-constraint'.") +(defsubst comp--symbol-func-to-fun (symbol-func) + "Given a function called SYMBOL-FUNC return its `comp-func'." + (gethash (gethash symbol-func (comp-ctxt-sym-to-c-name-h comp-ctxt)) + (comp-ctxt-funcs-h comp-ctxt))) + (defun comp--get-function-cstr (function) "Given FUNCTION return the corresponding `comp-constraint'." (when (symbolp function) @@ -603,11 +608,6 @@ In use by the back-end." finally return t) t)) -(defsubst comp--symbol-func-to-fun (symbol-func) - "Given a function called SYMBOL-FUNC return its `comp-func'." - (gethash (gethash symbol-func (comp-ctxt-sym-to-c-name-h comp-ctxt)) - (comp-ctxt-funcs-h comp-ctxt))) - (defun comp--function-pure-p (f) "Return t if F is pure." (or (get f 'pure) -- 2.39.5