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/autoload.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/autoload.el')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index d9fc0fccf0e..9cd626c52f4 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -32,7 +32,7 @@ (require 'lisp-mode) ;for `doc-string-elt' properties. (require 'help-fns) ;for help-add-fundoc-usage. -(eval-when-compile (require 'cl)) +(eval-when-compile (require 'cl-lib)) (defvar generated-autoload-file nil "File into which to write autoload definitions. @@ -154,7 +154,7 @@ expression, in which case we want to handle forms differently." defun* defmacro* define-overloadable-function)) (let* ((macrop (memq car '(defmacro defmacro*))) (name (nth 1 form)) - (args (case car + (args (cl-case car ((defun defmacro defun* defmacro* define-overloadable-function) (nth 2 form)) ((define-skeleton) '(&optional str arg)) @@ -546,7 +546,7 @@ Return non-nil if and only if FILE adds no autoloads to OUTFILE (save-excursion ;; Insert the section-header line which lists the file name ;; and which functions are in it, etc. - (assert (= ostart output-start)) + (cl-assert (= ostart output-start)) (goto-char output-start) (let ((relfile (file-relative-name absfile))) (autoload-insert-section-header |