From 7a21fef9ecbd83d96b9f1410488915ff804bc943 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 16 Jan 2004 18:20:00 +0000 Subject: [PATCH] (cl-cannot-unload): New function. (cl-unload-hook): Defvar this to run cl-cannot-unload. --- lisp/emacs-lisp/cl.el | 4 ++++ 1 file changed, 4 insertions(+) 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. -- 2.39.2