diff options
| author | Juanma Barranquero | 2007-10-31 12:46:47 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-10-31 12:46:47 +0000 |
| commit | 66eed8276dc18172f6945d7bcb03607d78d6acfb (patch) | |
| tree | f35afeb61957467a71746cd2f813d8fd96f104da | |
| parent | 41a79faa2b69cc245b37a1991b3235c004721a05 (diff) | |
| download | emacs-66eed8276dc18172f6945d7bcb03607d78d6acfb.tar.gz emacs-66eed8276dc18172f6945d7bcb03607d78d6acfb.zip | |
(cl-cannot-unload): Remove function.
(cl-unload-hook): Remove variable.
(cl-unload-function): New-style unload function,
adapted from `cl-cannot-unload'.
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 8 |
1 files changed, 5 insertions, 3 deletions
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. | |||
| 109 | This variable is not used at present, but it is defined in hopes that | 109 | This variable is not used at present, but it is defined in hopes that |
| 110 | a future Emacs interpreter will be able to use it.") | 110 | a future Emacs interpreter will be able to use it.") |
| 111 | 111 | ||
| 112 | (add-hook 'cl-unload-hook 'cl-cannot-unload) | 112 | (defun cl-unload-function () |
| 113 | (defun cl-cannot-unload () | 113 | "Stop unloading of the Common Lisp extensions." |
| 114 | (error "Cannot unload the feature `cl'")) | 114 | (message "Cannot unload the feature `cl'") |
| 115 | ;; stop standard unloading! | ||
| 116 | t) | ||
| 115 | 117 | ||
| 116 | ;;; Generalized variables. | 118 | ;;; Generalized variables. |
| 117 | ;; These macros are defined here so that they | 119 | ;; These macros are defined here so that they |