[elpa] externals/compat 0d77194 14/99: Remove compat--disable-defer variable

[ELPA Syncer]

branch: externals/compat
commit 0d771945504a0928dba7603048897f0b10d14e13
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Remove compat--disable-defer variable
    
    As per the last commit, it is not necessary to prevent deferred
    evaluation of compatibility definitions. Therefore, the variable
    compat--disable-defer is also not needed any more.
---
 compat-macs.el  |  7 +------
 compat-tests.el | 15 +++++++--------
 2 files changed, 8 insertions(+), 14 deletions(-)

diff --git a/compat-macs.el b/compat-macs.el
index b14f875..95ce08d 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -25,11 +25,6 @@
 
 ;;; Code:
 
-(defvar compat--disable-defer nil
-  "Prevent compatibility code from being deferred.
-This is used for testing, and should not be set to a non-nil
-value otherwise.")
-
 (defmacro compat--ignore (&rest _)
   "Ignore all arguments."
   nil)
@@ -103,7 +98,7 @@ attributes are handled, all others are ignored:
                  ,(funcall install-fn realname))))
     `(progn
        ,(funcall def-fn realname version)
-       ,(if (and feature (not compat--disable-defer))
+       ,(if feature
             `(eval-after-load ',feature (lambda () ,body))
           body))))
 
diff --git a/compat-tests.el b/compat-tests.el
index 4a15c5f..fe83f04 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -67,14 +67,13 @@
 (eval-and-compile
   (require 'compat-macs)
 
-  (let ((compat--disable-defer t))
-    (load "compat-24.2.el" nil nil nil t)
-    (load "compat-24.3.el" nil nil nil t)
-    (load "compat-24.4.el" nil nil nil t)
-    (load "compat-25.1.el" nil nil nil t)
-    (load "compat-26.1.el" nil nil nil t)
-    (load "compat-27.1.el" nil nil nil t)
-    (load "compat-28.1.el" nil nil nil t))
+  (load "compat-24.2.el" nil nil nil t)
+  (load "compat-24.3.el" nil nil nil t)
+  (load "compat-24.4.el" nil nil nil t)
+  (load "compat-25.1.el" nil nil nil t)
+  (load "compat-26.1.el" nil nil nil t)
+  (load "compat-27.1.el" nil nil nil t)
+  (load "compat-28.1.el" nil nil nil t)
 
   (defvar compat--current-fn nil)
   (defvar compat--compat-fn nil)