diff options
| author | Richard M. Stallman | 2004-10-16 15:21:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-10-16 15:21:10 +0000 |
| commit | 61f1ca4e1d1f43a37a5c7a0b7df85ff13c78be18 (patch) | |
| tree | eb64eb3897f0ff93c488b13c5e67fc5fb59ccccf | |
| parent | 997011eb62f97c6f66d822682c7375e213ed6a2c (diff) | |
| download | emacs-61f1ca4e1d1f43a37a5c7a0b7df85ff13c78be18.tar.gz emacs-61f1ca4e1d1f43a37a5c7a0b7df85ff13c78be18.zip | |
(cl-unload-hook): Don't defvar it, just set it.
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 3 |
1 files changed, 1 insertions, 2 deletions
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. | |||
| 108 | This variable is not used at present, but it is defined in hopes that | 108 | This variable is not used at present, but it is defined in hopes that |
| 109 | a future Emacs interpreter will be able to use it.") | 109 | a future Emacs interpreter will be able to use it.") |
| 110 | 110 | ||
| 111 | (defvar cl-unload-hook '(cl-cannot-unload) | 111 | (add-hook 'cl-unload-hook 'cl-cannot-unload) |
| 112 | "Prevent unloading the feature `cl', since it does not work.") | ||
| 113 | (defun cl-cannot-unload () | 112 | (defun cl-cannot-unload () |
| 114 | (error "Cannot unload the feature `cl'")) | 113 | (error "Cannot unload the feature `cl'")) |
| 115 | 114 | ||