diff options
| author | Richard M. Stallman | 2004-01-16 18:20:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-01-16 18:20:00 +0000 |
| commit | 7a21fef9ecbd83d96b9f1410488915ff804bc943 (patch) | |
| tree | f774fa95707e484ba723cfcadb8a7a9e6b93986e | |
| parent | a633a9544b7099c7ec6dc53182d830571bf1a442 (diff) | |
| download | emacs-7a21fef9ecbd83d96b9f1410488915ff804bc943.tar.gz emacs-7a21fef9ecbd83d96b9f1410488915ff804bc943.zip | |
(cl-cannot-unload): New function.
(cl-unload-hook): Defvar this to run cl-cannot-unload.
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index b8d9cd5e80c..b098a467f9f 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el | |||
| @@ -108,6 +108,10 @@ printer proceeds to the next function on the list. | |||
| 108 | This variable is not used at present, but it is defined in hopes that | 108 | This variable is not used at present, but it is defined in hopes that |
| 109 | a future Emacs interpreter will be able to use it.") | 109 | a future Emacs interpreter will be able to use it.") |
| 110 | 110 | ||
| 111 | (defvar cl-unload-hook '(cl-cannot-unload) | ||
| 112 | "Prevent unloading the feature `cl', since it does not work.") | ||
| 113 | (defun cl-cannot-unload () | ||
| 114 | (error "Cannot unload the feature `cl'")) | ||
| 111 | 115 | ||
| 112 | ;;; Predicates. | 116 | ;;; Predicates. |
| 113 | 117 | ||