diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2024-05-06 13:54:19 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2024-05-06 13:54:19 +0300 |
| commit | 74ebd729c7b8a4b957ab9eebc603c69d6aac00be (patch) | |
| tree | c1d987de82406b6c779013645f5ac385b69357e9 /lisp/emacs-lisp/comp.el | |
| parent | 5bf4ff806b8ad12fa8a0ab7a8c8032d46b363b6c (diff) | |
| download | emacs-74ebd729c7b8a4b957ab9eebc603c69d6aac00be.tar.gz emacs-74ebd729c7b8a4b957ab9eebc603c69d6aac00be.tar.bz2 emacs-74ebd729c7b8a4b957ab9eebc603c69d6aac00be.zip | |
; Avoid byte-compiler warning in comp.el
* lisp/emacs-lisp/comp.el (comp--symbol-func-to-fun): Move to
before its first use.
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 10 |
1 files 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) |