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

(byte-compile-eval): Avoid some false positive "noruntime" warnings

Browse source 
* lisp/emacs-lisp/bytecomp.el (byte-compile-eval): Loosen the check
before refraining from adding a function to noruntime.
This commit is contained in:
Stefan Monnier 2022-05-11 17:17:10 -04:00
parent f0e08e4914
commit ed0b589480
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1056,8 +1056,14 @@ Each function's symbol gets added to `byte-compile-noruntime-functions'."
(dolist (s xs)
(pcase s
(`(defun . ,f)
(unless (seq-some #'autoloadp
(get (cdr s) 'function-history))
;; If `f' has a history, it's presumably because
;; it was already defined beforehand (typically
;; as an autoload). It could also be because it
;; was defined twice during `form', in which case
;; we arguably should add it to b-c-noruntime-functions,
;; but it's not clear it's worth the trouble
;; trying to recognize that case.
(unless (get f 'function-history)
(push f byte-compile-noruntime-functions)))))))))))))
(defun byte-compile-eval-before-compile (form)