[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 6606ec8: Fix some compilation warnings in non native
From: |
Andrea Corallo |
Subject: |
feature/native-comp 6606ec8: Fix some compilation warnings in non nativecomp build (bug#43892) |
Date: |
Mon, 12 Oct 2020 15:20:59 -0400 (EDT) |
branch: feature/native-comp
commit 6606ec8e313bf48a1ac7b63c52bfeb64c4257107
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
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.
---
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 fb67de3..509e255 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 9e4d8cf..4417082 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 8b60c08..e68c135 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 833a188..1d330ce 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 c166b63..1a3fd35 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/native-comp 6606ec8: Fix some compilation warnings in non nativecomp build (bug#43892),
Andrea Corallo <=