master ee0e3a7 1/2: edebug: remove ancient code for ancient XEmacs support libs

[Glenn Morris]

branch: master
commit ee0e3a792b386bbecec7b20249e04d6b70b96bb2
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    edebug: remove ancient code for ancient XEmacs support libs
    
    * lisp/emacs-lisp/edebug.el (edebug--require-cl-read): Remove.
    (edebug-setup-hook, cl-read-load-hooks): Don't modify.
    (edebug-unload-function): Don't modify cl-read-load-hooks.
---
 lisp/emacs-lisp/edebug.el | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index b8d2fb5..0aa6caa 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -4518,17 +4518,6 @@ With prefix argument, make it a temporary breakpoint."
   (edebug-modify-breakpoint t condition arg))
 
 (easy-menu-define edebug-menu edebug-mode-map "Edebug menus" edebug-mode-menus)
-
-;;; Autoloading of Edebug accessories
-
-;; edebug-cl-read and cl-read are available from address@hidden
-(defun edebug--require-cl-read ()
-  (require 'edebug-cl-read))
-
-(if (featurep 'cl-read)
-    (add-hook 'edebug-setup-hook #'edebug--require-cl-read)
-  ;; The following causes edebug-cl-read to be loaded when you load cl-read.el.
-  (add-hook 'cl-read-load-hooks #'edebug--require-cl-read))
 
 
 ;;; Finalize Loading
@@ -4564,7 +4553,6 @@ With prefix argument, make it a temporary breakpoint."
       (run-with-idle-timer 0 nil #'(lambda () (unload-feature 'edebug)))))
   (remove-hook 'called-interactively-p-functions
                #'edebug--called-interactively-skip)
-  (remove-hook 'cl-read-load-hooks #'edebug--require-cl-read)
   (edebug-uninstall-read-eval-functions)
   ;; Continue standard unloading.
   nil)