From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 Oct 2004 15:21:10 +0000 (+0000)
Subject: (cl-unload-hook): Don't defvar it, just set it.
X-Git-Tag: ttn-vms-21-2-B4~4550
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61f1ca4e1d1f43a37a5c7a0b7df85ff13c78be18;p=emacs.git

(cl-unload-hook): Don't defvar it, just set it.
---

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index b098a467f9f..2f6c799f528 100644
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -108,8 +108,7 @@ 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.")
+(add-hook 'cl-unload-hook 'cl-cannot-unload)
 (defun cl-cannot-unload ()
   (error "Cannot unload the feature `cl'"))