diff options
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index b8d2fb5beb5..0aa6caa37e1 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." | |||
| 4518 | (edebug-modify-breakpoint t condition arg)) | 4518 | (edebug-modify-breakpoint t condition arg)) |
| 4519 | 4519 | ||
| 4520 | (easy-menu-define edebug-menu edebug-mode-map "Edebug menus" edebug-mode-menus) | 4520 | (easy-menu-define edebug-menu edebug-mode-map "Edebug menus" edebug-mode-menus) |
| 4521 | |||
| 4522 | ;;; Autoloading of Edebug accessories | ||
| 4523 | |||
| 4524 | ;; edebug-cl-read and cl-read are available from liberte@cs.uiuc.edu | ||
| 4525 | (defun edebug--require-cl-read () | ||
| 4526 | (require 'edebug-cl-read)) | ||
| 4527 | |||
| 4528 | (if (featurep 'cl-read) | ||
| 4529 | (add-hook 'edebug-setup-hook #'edebug--require-cl-read) | ||
| 4530 | ;; The following causes edebug-cl-read to be loaded when you load cl-read.el. | ||
| 4531 | (add-hook 'cl-read-load-hooks #'edebug--require-cl-read)) | ||
| 4532 | 4521 | ||
| 4533 | 4522 | ||
| 4534 | ;;; Finalize Loading | 4523 | ;;; Finalize Loading |
| @@ -4564,7 +4553,6 @@ With prefix argument, make it a temporary breakpoint." | |||
| 4564 | (run-with-idle-timer 0 nil #'(lambda () (unload-feature 'edebug))))) | 4553 | (run-with-idle-timer 0 nil #'(lambda () (unload-feature 'edebug))))) |
| 4565 | (remove-hook 'called-interactively-p-functions | 4554 | (remove-hook 'called-interactively-p-functions |
| 4566 | #'edebug--called-interactively-skip) | 4555 | #'edebug--called-interactively-skip) |
| 4567 | (remove-hook 'cl-read-load-hooks #'edebug--require-cl-read) | ||
| 4568 | (edebug-uninstall-read-eval-functions) | 4556 | (edebug-uninstall-read-eval-functions) |
| 4569 | ;; Continue standard unloading. | 4557 | ;; Continue standard unloading. |
| 4570 | nil) | 4558 | nil) |