procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Avoid byte-compiler warning in comp.el

Browse source 
* lisp/emacs-lisp/comp.el (comp--symbol-func-to-fun): Move to
before its first use.
This commit is contained in:
Eli Zaretskii 2024-05-06 13:54:19 +03:00
parent 5bf4ff806b
commit 74ebd729c7
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/comp.el
View file

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