diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-01-16 18:20:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-01-16 18:20:00 +0000 |
| commit | 7a21fef9ecbd83d96b9f1410488915ff804bc943 (patch) | |
| tree | f774fa95707e484ba723cfcadb8a7a9e6b93986e /lisp/emacs-lisp | |
| parent | a633a9544b7099c7ec6dc53182d830571bf1a442 (diff) | |
| download | emacs-7a21fef9ecbd83d96b9f1410488915ff804bc943.tar.gz emacs-7a21fef9ecbd83d96b9f1410488915ff804bc943.tar.bz2 emacs-7a21fef9ecbd83d96b9f1410488915ff804bc943.zip | |
(cl-cannot-unload): New function.
(cl-unload-hook): Defvar this to run cl-cannot-unload.
Diffstat (limited to 'lisp/emacs-lisp')
| -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. This variable is not used at present, but it is defined in hopes that a future Emacs interpreter will be able to use it.") +(defvar cl-unload-hook '(cl-cannot-unload) + "Prevent unloading the feature `cl', since it does not work.") +(defun cl-cannot-unload () + (error "Cannot unload the feature `cl'")) ;;; Predicates. |