[elpa] externals/compat f4ff0504ad 1/5: Remove "Update defaults" section

[ELPA Syncer]

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

    Remove "Update defaults" section
---
 compat.el | 47 -----------------------------------------------
 1 file changed, 47 deletions(-)

diff --git a/compat.el b/compat.el
index 9968408d38..c0094c7611 100644
--- a/compat.el
+++ b/compat.el
@@ -131,52 +131,5 @@
 ;; call is inserted directly into the autoload file:
 ;;;###autoload (require 'compat)
 
-;;;;; Update defaults
-
-;; This section updates default values that have been updated in
-;; "future" versions of Emacs, and are relevant to users on older
-;; versions of Emacs.
-;;
-;; To prevent these changes from taking effect, set
-;; `compat-preserve-defaults' to t in your early-init.el on Emacs 27 or
-;; before calling `package-initialize' before Emacs 27.
-
-(defvar compat-preserve-defaults nil)
-
-(unless compat-preserve-defaults
-  ;; Add NonGNU ELPA to the list of package archives
-  (defvar package-archives)
-  (with-eval-after-load 'package
-    (when (or (equal '(("gnu" . "https://elpa.gnu.org/packages/";))
-                     package-archives)
-              (equal '(("gnu" . "http://elpa.gnu.org/packages/";))
-                     package-archives))
-      (push (cons "nongnu"
-                  (format "http%s://elpa.nongnu.org/nongnu/"
-                          (if (and (fboundp 'gnutls-available-p)
-                                   (gnutls-available-p))
-                              "s" "")))
-            package-archives)))
-
-  ;; Change the default IRC server from Freenode to Libera.
-  (defvar rcirc-server-alist)
-  (with-eval-after-load 'rcirc
-    (when (equal '(("chat.freenode.net" :channels ("#rcirc")))
-                 rcirc-server-alist)
-      (setq rcirc-server-alist
-            (if (and (fboundp 'gnutls-available-p)
-                     (gnutls-available-p))
-                ;; The #emacs channel is not added here (even though
-                ;; it was added in 28.1), since that is a separate
-                ;; feature that doesn't need to be added here.
-                '(("irc.libera.chat" :channels ("#rcirc")
-                   :port 6697 :encryption tls))
-              '(("irc.libera.chat" :channels ("#rcirc")))))))
-
-  (defvar erc-default-server)
-  (with-eval-after-load 'erc
-    (when (equal erc-default-server "irc.freenode.net")
-      (setq erc-default-server "irc.libera.chat"))))
-
 (provide 'compat)
 ;;; compat.el ends here