Mercurial > emacs
changeset 53597:c2d405bc6059
(cl-cannot-unload): New function.
(cl-unload-hook): Defvar this to run cl-cannot-unload.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 16 Jan 2004 18:20:00 +0000 |
| parents | e3e8f1dcc895 |
| children | c66875fbc45d |
| files | lisp/emacs-lisp/cl.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl.el Fri Jan 16 10:21:54 2004 +0000 +++ b/lisp/emacs-lisp/cl.el Fri Jan 16 18:20:00 2004 +0000 @@ -108,6 +108,10 @@ 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.