Commit 82e1f390 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/emacs-lisp/cl.el, lisp/emacs-lisp/cl-lib.el: Move cl-unload-function and

cl-load-hook where they belong.
parent 1cbae532
2012-12-06 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl.el, emacs-lisp/cl-lib.el: Move cl-unload-function and
cl-load-hook where they belong.
2012-12-06 Chong Yidong <cyd@gnu.org>
 
* ffap.el (ffap-replace-file-component): Fix typo.
......
......@@ -113,12 +113,6 @@ 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.")
(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
;; can safely be used in init files.
......@@ -747,8 +741,6 @@ If ALIST is non-nil, the new pairs are prepended to it."
(provide 'cl-lib)
(run-hooks 'cl-load-hook)
;; Local variables:
;; byte-compile-dynamic: t
;; End:
......
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment