diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-10-12 18:55:38 +0000 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-10-12 21:19:09 +0200 |
| commit | 6606ec8e313bf48a1ac7b63c52bfeb64c4257107 (patch) | |
| tree | 075278046c04ad1b8ef032d8f484f71eb808b7f6 | |
| parent | feed53f8b5da0e58cce412cd41a52883dba6c1be (diff) | |
| download | emacs-6606ec8e313bf48a1ac7b63c52bfeb64c4257107.tar.gz | |
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.
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/nadvice.el | 2 | ||||
| -rw-r--r-- | lisp/files.el | 2 | ||||
| -rw-r--r-- | lisp/help.el | 2 |
5 files changed, 10 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) diff --git a/lisp/files.el b/lisp/files.el index 833a188b03b..1d330ce87bf 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -900,6 +900,8 @@ recursion." (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 c166b63a56f..1a3fd35e44e 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1320,6 +1320,8 @@ ARGLIST can also be t or a string of the form \"(FUN ARG1 ARG2 ...)\"." (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 |