From f974286d57886c8d3ff6d50409fff0cc60ab8850 Mon Sep 17 00:00:00 2001
From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 25 Mar 2025 19:14:30 +0100
Subject: [PATCH] ; * lisp/simple.el: Drop some cruft.

---
 lisp/simple.el | 52 --------------------------------------------------
 1 file changed, 52 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index a872cbe54a3..621446b929c 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -10688,58 +10688,6 @@ If it does not exist, create it and switch it to `messages-buffer-mode'."
         (messages-buffer-mode)
         (current-buffer))))
 
-
-;; Minibuffer prompt stuff.
-
-;;(defun minibuffer-prompt-modification (start end)
-;;  (error "You cannot modify the prompt"))
-;;
-;;
-;;(defun minibuffer-prompt-insertion (start end)
-;;  (let ((inhibit-modification-hooks t))
-;;    (delete-region start end)
-;;    ;; Discard undo information for the text insertion itself
-;;    ;; and for the text deletion.above.
-;;    (when (consp buffer-undo-list)
-;;      (setq buffer-undo-list (cddr buffer-undo-list)))
-;;    (message "You cannot modify the prompt")))
-;;
-;;
-;;(setq minibuffer-prompt-properties
-;;  (list 'modification-hooks '(minibuffer-prompt-modification)
-;;	'insert-in-front-hooks '(minibuffer-prompt-insertion)))
-
-
-;;;; Problematic external packages.
-
-;; rms says this should be done by specifying symbols that define
-;; versions together with bad values.  This is therefore not as
-;; flexible as it could be.  See the thread:
-;; https://lists.gnu.org/r/emacs-devel/2007-08/msg00300.html
-(defconst bad-packages-alist nil
-  "Alist of packages known to cause problems in this version of Emacs.
-Each element has the form (PACKAGE SYMBOL REGEXP STRING).
-PACKAGE is either a regular expression to match file names, or a
-symbol (a feature name), like for `with-eval-after-load'.
-SYMBOL is either the name of a string variable, or t.  Upon
-loading PACKAGE, if SYMBOL is t or matches REGEXP, display a
-warning using STRING as the message.")
-(make-obsolete-variable 'bad-packages-alist nil "29.1")
-
-(defun bad-package-check (package)
-  "Run a check using the element from `bad-packages-alist' matching PACKAGE."
-  (declare (obsolete nil "29.1"))
-  (condition-case nil
-      (let* ((list (assoc package bad-packages-alist))
-             (symbol (nth 1 list)))
-        (and list
-             (boundp symbol)
-             (or (eq symbol t)
-                 (and (stringp (setq symbol (symbol-value symbol)))
-                      (string-match-p (nth 2 list) symbol)))
-             (display-warning package (nth 3 list) :warning)))
-    (error nil)))
-
 
 ;;; Generic dispatcher commands
 
-- 
2.39.5