emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/compat e4f5471d23 1/4: Chained requiring, remove unnece


From: ELPA Syncer
Subject: [elpa] externals/compat e4f5471d23 1/4: Chained requiring, remove unnecessary declare-functions
Date: Tue, 3 Jan 2023 12:57:27 -0500 (EST)

branch: externals/compat
commit e4f5471d23c469a0b02152743bae17b3a6eb9d5d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Chained requiring, remove unnecessary declare-functions
---
 compat-24.el | 1 -
 compat-25.el | 2 +-
 compat-26.el | 4 +---
 compat-27.el | 8 +-------
 compat-28.el | 4 +---
 compat-29.el | 7 +------
 compat.el    | 5 -----
 7 files changed, 5 insertions(+), 26 deletions(-)

diff --git a/compat-24.el b/compat-24.el
index 533c9f68c7..6add3c056d 100644
--- a/compat-24.el
+++ b/compat-24.el
@@ -33,7 +33,6 @@
 ;;; Code:
 
 (eval-when-compile (load "compat-macs.el" nil t t))
-
 (compat-declare-version "24.4")
 
 ;;;; Defined in data.c
diff --git a/compat-25.el b/compat-25.el
index fe241b0081..891ebfa67d 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -27,8 +27,8 @@
 
 ;;; Code:
 
+(require 'compat-24)
 (eval-when-compile (load "compat-macs.el" nil t t))
-
 (compat-declare-version "25.1")
 
 ;;;; Defined in alloc.c
diff --git a/compat-26.el b/compat-26.el
index 8a56a460ab..bded43b32f 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -32,8 +32,8 @@
 
 ;;; Code:
 
+(require 'compat-25)
 (eval-when-compile (load "compat-macs.el" nil t t))
-
 (compat-declare-version "26.1")
 
 ;;;; Defined in eval.c
@@ -148,8 +148,6 @@ from the absolute start of the buffer, disregarding the 
narrowing."
 
 ;;;; Defined in subr.el
 
-(declare-function compat--alist-get-full-elisp "compat-25"
-                  (key alist &optional default remove testfn))
 (declare-function alist-get nil (key alist &optional default remove))
 (compat-defun alist-get (key alist &optional default remove testfn)
   "Handle TESTFN manually."
diff --git a/compat-27.el b/compat-27.el
index 7d162152ad..43d9897dfc 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -34,8 +34,8 @@
 
 ;;; Code:
 
+(require 'compat-26)
 (eval-when-compile (load "compat-macs.el" nil t t))
-
 (compat-declare-version "27.1")
 
 ;;;; Defined in fns.c
@@ -596,9 +596,6 @@ in all cases, since that is the standard symbol for byte."
               (if (string= prefixed-unit "") "" (or space ""))
               prefixed-unit))))
 
-(declare-function compat--file-name-quote "compat-26"
-                  (name &optional top))
-
 ;;*UNTESTED
 (compat-defun exec-path ()
   "Return list of directories to search programs to run in remote subprocesses.
@@ -633,9 +630,6 @@ the value of the variable `exec-path'."
           (nreverse path)))))
    (exec-path)))
 
-(declare-function compat--file-local-name "compat-26"
-                  (file))
-
 ;;*UNTESTED
 (compat-defun executable-find (command &optional remote)
   "Search for COMMAND in `exec-path' and return the absolute file name.
diff --git a/compat-28.el b/compat-28.el
index f9d422c6a6..c7316bd703 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -34,8 +34,8 @@
 
 ;;; Code:
 
+(require 'compat-27)
 (eval-when-compile (load "compat-macs.el" nil t t))
-
 (compat-declare-version "28.1")
 
 ;;;; Defined in fns.c
@@ -606,8 +606,6 @@ as the new values of the bound variables in the recursive 
invocation."
 
 ;;;; Defined in files.el
 
-(declare-function compat--string-trim-left "compat-26" (string &optional 
regexp))
-(declare-function compat--directory-name-p "compat-25" (name))
 (compat-defun file-name-with-extension (filename extension)
   "Set the EXTENSION of a FILENAME.
 The extension (in a file name) is the part that begins with the last \".\".
diff --git a/compat-29.el b/compat-29.el
index 2fc03dbc40..1680a92fe3 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -30,8 +30,8 @@
 
 ;;; Code:
 
+(require 'compat-28)
 (eval-when-compile (load "compat-macs.el" nil t t))
-
 (compat-declare-version "29.1")
 
 ;;;; Defined in xdisp.c
@@ -265,11 +265,6 @@ signalled.  If NOERROR, the non-loop parts of the chain is 
returned."
          (push func chain))
        chain))))
 
-(declare-function compat--provided-mode-derived-p
-                  "compat-27" (mode &rest modes))
-(declare-function compat--func-arity
-                  "compat-26" (func))
-
 ;;* UNTESTED
 (compat-defun buffer-match-p (condition buffer-or-name &optional arg)
   "Return non-nil if BUFFER-OR-NAME matches CONDITION.
diff --git a/compat.el b/compat.el
index ad30c93e60..16c9b7db28 100644
--- a/compat.el
+++ b/compat.el
@@ -40,11 +40,6 @@
 
 ;;; Code:
 
-(require 'compat-24)
-(require 'compat-25)
-(require 'compat-26)
-(require 'compat-27)
-(require 'compat-28)
 (require 'compat-29)
 
 (provide 'compat)



reply via email to

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