>From 004abde9b6a20677d6eafefc50834b257a44edf2 Mon Sep 17 00:00:00 2001
From: Brian Leung <leungbk@mailfence.com>
Date: Fri, 9 Oct 2020 14:35:26 -0700
Subject: [PATCH] ; Fix some compilation warnings

lisp/emacs-lisp/advice.el: Declare comp-subr-trampoline-install function.
lisp/emacs-lisp/find-func.el: Declare comp-eln-to-el-h variable.
lisp/emacs-lisp/nadvice.el: Declare comp-subr-trampoline-install function.
lisp/files.el: Declare comp-eln-to-el-h variable.
lisp/help.el: Declare subr-native-lambda-list function.
---
 lisp/emacs-lisp/advice.el    | 2 ++
 lisp/emacs-lisp/find-func.el | 2 ++
 lisp/emacs-lisp/nadvice.el   | 2 ++
 lisp/files.el                | 2 ++
 lisp/help.el                 | 2 ++
 5 files changed, 10 insertions(+)

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index fb67de3a02..509e255191 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2052,6 +2052,8 @@ ad-remove-advice
 		 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 9e4d8cf1aa..4417082971 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -178,6 +178,8 @@ find-library--load-name
             (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 8b60c08440..e68c135608 100644
--- a/lisp/emacs-lisp/nadvice.el
+++ b/lisp/emacs-lisp/nadvice.el
@@ -316,6 +316,8 @@ add-function
   `(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)
diff --git a/lisp/files.el b/lisp/files.el
index 833a188b03..1d330ce87b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -900,6 +900,8 @@ load-file
 		       (read-file-name "Load file: " nil nil 'lambda))))
   (load (expand-file-name file) nil nil t))
 
+(defvar comp-eln-to-el-h)
+
 (defun locate-file (filename path &optional suffixes predicate)
   "Search for FILENAME through PATH.
 If found, return the absolute file name of FILENAME; otherwise
diff --git a/lisp/help.el b/lisp/help.el
index c166b63a56..1a3fd35e44 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1320,6 +1320,8 @@ help-add-fundoc-usage
                   (error "Unrecognized usage format"))
 	      (help--make-usage-docstring 'fn arglist)))))
 
+(declare-function subr-native-lambda-list "data.c")
+
 (defun help-function-arglist (def &optional preserve-names)
   "Return a formal argument list for the function DEF.
 If PRESERVE-NAMES is non-nil, return a formal arglist that uses
-- 
2.28.0