summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorBrian Leung <leungbk@mailfence.com>2020-10-12 18:55:38 +0000
committerAndrea Corallo <akrl@sdf.org>2020-10-12 21:25:50 +0200
commit237fd33aef7e0f4b187ee0c1f367f27a90d603dc (patch)
tree075278046c04ad1b8ef032d8f484f71eb808b7f6 /lisp/emacs-lisp
parenta3304feb9be1489036574fdac2a4a3e4e7a0c38a (diff)
downloademacs-237fd33aef7e0f4b187ee0c1f367f27a90d603dc.tar.gz
emacs-237fd33aef7e0f4b187ee0c1f367f27a90d603dc.tar.bz2
emacs-237fd33aef7e0f4b187ee0c1f367f27a90d603dc.zip
Fix some compilation warnings in non nativecomp build (bug#43892)
* lisp/emacs-lisp/advice.el (comp-subr-trampoline-install): Declare function. * lisp/emacs-lisp/find-func.el (comp-eln-to-el-h): Declare variable. * lisp/emacs-lisp/nadvice.el (comp-subr-trampoline-install): Declare function. * lisp/files.el (comp-eln-to-el-h): Declare variable. * lisp/help.el (subr-native-lambda-list): Declare function.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/advice.el2
-rw-r--r--lisp/emacs-lisp/find-func.el2
-rw-r--r--lisp/emacs-lisp/nadvice.el2
3 files changed, 6 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index fb67de3a029..509e2551914 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2052,6 +2052,8 @@ in that CLASS."
function class name)))
(error "ad-remove-advice: `%s' is not advised" function)))
+(declare-function comp-subr-trampoline-install "comp")
+
;;;###autoload
(defun ad-add-advice (function advice class position)
"Add a piece of ADVICE to FUNCTION's list of advices in CLASS.
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 9e4d8cf1aa8..4417082971f 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -178,6 +178,8 @@ See the functions `find-function' and `find-variable'."
(setq name rel))))
(unless (equal name library) name)))
+(defvar comp-eln-to-el-h)
+
(defun find-library-name (library)
"Return the absolute file name of the Emacs Lisp source of LIBRARY.
LIBRARY should be a string (the name of the library)."
diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index 8b60c08440b..e68c1356081 100644
--- a/lisp/emacs-lisp/nadvice.el
+++ b/lisp/emacs-lisp/nadvice.el
@@ -316,6 +316,8 @@ is also interactive. There are 3 cases:
`(advice--add-function ,where (gv-ref ,(advice--normalize-place place))
,function ,props))
+(declare-function comp-subr-trampoline-install "comp")
+
;;;###autoload
(defun advice--add-function (where ref function props)
(when (and (featurep 'nativecomp)