From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 6 May 2024 10:54:19 +0000 (+0300)
Subject: ; Avoid byte-compiler warning in comp.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15ee30e92048ebdab71366eaefd48c689ddc014a;p=emacs.git

; 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)
---

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)