Mercurial > emacs

changeset 85834:7400d979a9d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cl-cannot-unload): Remove function. (cl-unload-hook): Remove variable. (cl-unload-function): New-style unload function, adapted from `cl-cannot-unload'.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 31 Oct 2007 12:46:47 +0000
parents efa76b2f6668
children f3bfe76fe370
files lisp/emacs-lisp/cl.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl.el	Wed Oct 31 12:46:08 2007 +0000
+++ b/lisp/emacs-lisp/cl.el	Wed Oct 31 12:46:47 2007 +0000
@@ -109,9 +109,11 @@
 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