From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 31 Oct 2007 12:46:47 +0000 (+0000)
Subject: (cl-cannot-unload): Remove function.
X-Git-Tag: emacs-pretest-23.0.90~9929
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66eed8276dc18172f6945d7bcb03607d78d6acfb;p=emacs.git

(cl-cannot-unload): Remove function.
(cl-unload-hook): Remove variable.
(cl-unload-function): New-style unload function,
adapted from `cl-cannot-unload'.
---

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 6174e06edb6..c8a029a453a 100644
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -109,9 +109,11 @@ 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.")
 
-(add-hook 'cl-unload-hook 'cl-cannot-unload)
-(defun cl-cannot-unload ()
-  (error "Cannot unload the feature `cl'"))
+(defun cl-unload-function ()
+  "Stop unloading of the Common Lisp extensions."
+  (message "Cannot unload the feature `cl'")
+  ;; stop standard unloading!
+  t)
 
 ;;; Generalized variables.
 ;; These macros are defined here so that they