diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-06-10 09:28:26 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-06-10 09:28:26 -0400 |
commit | f80efb8695cd8b4480c5f041c484beb5486afb37 (patch) | |
tree | 11cdf753a8e8a270fa79eb1dc794aa8426d3893e /lisp/emacs-lisp/cl-lib.el | |
parent | 31ca4639ad1bfaa355a3f30ef92eb977bd2c6b78 (diff) | |
download | emacs-f80efb8695cd8b4480c5f041c484beb5486afb37.tar.gz emacs-f80efb8695cd8b4480c5f041c484beb5486afb37.tar.bz2 emacs-f80efb8695cd8b4480c5f041c484beb5486afb37.zip |
Reduce use of cl in lisp/emacs-lisp/.
* lisp/emacs-lisp/timer.el, lisp/emacs-lisp/syntax.el, lisp/emacs-lisp/smie.el:
* lisp/emacs-lisp/ewoc.el, lisp/emacs-lisp/cconv.el,lisp/emacs-lisp/derived.el:
* lisp/emacs-lisp/byte-opt.el, lisp/emacs-lisp/autoload.el: Convert to cl-lib.
* lisp/emacs-lisp/easymenu.el, lisp/emacs-lisp/easy-mmode.el:
* lisp/emacs-lisp/bytecomp.el: Use pcase instead of `cl'.
* lisp/emacs-lisp/cl-lib.el: Get rid of special cl-macs auto load.
Diffstat (limited to 'lisp/emacs-lisp/cl-lib.el')
-rw-r--r-- | lisp/emacs-lisp/cl-lib.el | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index 6ec1060e39f..8c0743001f7 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el @@ -644,29 +644,6 @@ If ALIST is non-nil, the new pairs are prepended to it." (load "cl-loaddefs" nil 'quiet) -;; This goes here so that cl-macs can find it if it loads right now. -(provide 'cl-lib) - -;; Things to do after byte-compiler is loaded. - -(defvar cl-hacked-flag nil) -(defun cl-hack-byte-compiler () - (and (not cl-hacked-flag) (fboundp 'byte-compile-file-form) - (progn - (setq cl-hacked-flag t) ; Do it first, to prevent recursion. - (load "cl-macs" nil t) - (run-hooks 'cl-hack-bytecomp-hook)))) - -;; Try it now in case the compiler has already been loaded. -(cl-hack-byte-compiler) - -;; Also make a hook in case compiler is loaded after this file. -(add-hook 'bytecomp-load-hook 'cl-hack-byte-compiler) - - -;; The following ensures that packages which expect the old-style cl.el -;; will be happy with this one. - (provide 'cl-lib) (run-hooks 'cl-load-hook) |