diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-12-06 16:08:50 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-12-06 16:08:50 -0500 |
| commit | 82e1f390ab57d782ec5d143d99119db03698bd4f (patch) | |
| tree | 840bef750feb41f48c169b54ea4b78d36bb8c1ef /lisp/emacs-lisp/cl.el | |
| parent | 1cbae532a06b6ca7d3317a8f4e8067d247dd901e (diff) | |
| download | emacs-82e1f390ab57d782ec5d143d99119db03698bd4f.tar.gz | |
* lisp/emacs-lisp/cl.el, lisp/emacs-lisp/cl-lib.el: Move cl-unload-function and
cl-load-hook where they belong.
Diffstat (limited to 'lisp/emacs-lisp/cl.el')
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index 016967bc713..3d0ca476800 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -83,6 +83,12 @@ ;; (delete-region (1- (point)) (point))) ;; (save-buffer))))) +(defun cl-unload-function () + "Stop unloading of the Common Lisp extensions." + (message "Cannot unload the feature `cl'") + ;; Stop standard unloading! + t) + ;;; Aliases to cl-lib's features. (dolist (var '( @@ -737,4 +743,7 @@ You can replace this macro with `gv-letplace'." (list accessor temp)))) (provide 'cl) + +(run-hooks 'cl-load-hook) + ;;; cl.el ends here |