emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/native-comp a3304fe 1/2: Revert "Fix some compilation warnings i


From: Andrea Corallo
Subject: feature/native-comp a3304fe 1/2: Revert "Fix some compilation warnings in non nativecomp build (bug#43892)"
Date: Mon, 12 Oct 2020 15:27:03 -0400 (EDT)

branch: feature/native-comp
commit a3304feb9be1489036574fdac2a4a3e4e7a0c38a
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    Revert "Fix some compilation warnings in non nativecomp build (bug#43892)"
    
    This reverts commit 6606ec8e313bf48a1ac7b63c52bfeb64c4257107.
---
 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 deletions(-)

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 509e255..fb67de3 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2052,8 +2052,6 @@ 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 4417082..9e4d8cf 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -178,8 +178,6 @@ 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 e68c135..8b60c08 100644
--- a/lisp/emacs-lisp/nadvice.el
+++ b/lisp/emacs-lisp/nadvice.el
@@ -316,8 +316,6 @@ 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 1d330ce..833a188 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -900,8 +900,6 @@ 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 1a3fd35..c166b63 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1320,8 +1320,6 @@ 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]