mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-06 14:30:50 -08:00
Move old compatiblity to cl.el. Remove cl-macroexpand-all.
* emacs-lisp/cl-extra.el (cl-map-keymap, cl-copy-tree) (cl-not-hash-table, cl-builtin-gethash, cl-builtin-remhash) (cl-builtin-clrhash, cl-builtin-maphash, cl-gethash, cl-puthash) (cl-remhash, cl-clrhash, cl-maphash, cl-make-hash-table) (cl-hash-table-p, cl-hash-table-count): Move to cl.el. (cl-macroexpand-cmacs): Remove var. (cl-macroexpand-all, cl-macroexpand-body): Remove funs. Use macroexpand-all instead. * emacs-lisp/cl-lib.el (cl-macro-environment): Remove decl. (cl-macroexpand): Move to cl-macs.el and rename to cl--sm-macroexpand. (cl-member): Remove old alias. * emacs-lisp/cl-macs.el (cl-macro-environment): Remove var. Use macroexpand-all-environment instead. (cl--old-macroexpand): New var. (cl--sm-macroexpand): New function. (cl-symbol-macrolet): Use it during macro expansion. (cl--function-convert-cache): New var. (cl--function-convert): New function, extracted from cl-macroexpand-all. (cl-lexical-let): Use it. * emacs-lisp/cl.el (cl-macroexpand, cl-macro-environment) (cl-macroexpand-all, cl-not-hash-table, cl-builtin-gethash) (cl-builtin-remhash, cl-builtin-clrhash, cl-builtin-maphash) (cl-map-keymap, cl-copy-tree, cl-gethash, cl-puthash, cl-remhash) (cl-clrhash, cl-maphash, cl-make-hash-table, cl-hash-table-p) (cl-hash-table-count): Add old compatibility aliases.
This commit is contained in:
parent
4dd1c416d1
commit
6fa6c4aedb
6 changed files with 191 additions and 210 deletions
|
|
@ -3,16 +3,15 @@
|
|||
;;; Code:
|
||||
|
||||
|
||||
;;;### (autoloads (cl-prettyexpand cl-macroexpand-all cl-remprop
|
||||
;;;;;; cl-do-remf cl-set-getf cl-getf cl-get cl-tailp cl-list-length
|
||||
;;;;;; cl-nreconc cl-revappend cl-concatenate cl-subseq cl-float-limits
|
||||
;;;;;; cl-random-state-p cl-make-random-state cl-random cl-signum
|
||||
;;;;;; cl-rem cl-mod cl-round cl-truncate cl-ceiling cl-floor cl-isqrt
|
||||
;;;;;; cl-lcm cl-gcd cl-progv-before cl-set-frame-visible-p cl-map-overlays
|
||||
;;;;;; cl-map-intervals cl-map-keymap-recursively cl-notevery cl-notany
|
||||
;;;;;; cl-every cl-some cl-mapcon cl-mapcan cl-mapl cl-maplist cl-map
|
||||
;;;;;; cl-mapcar-many cl-equalp cl-coerce) "cl-extra" "cl-extra.el"
|
||||
;;;;;; "acc0000b09b27fb51f5ba23a4b9254e2")
|
||||
;;;### (autoloads (cl-prettyexpand cl-remprop cl-do-remf cl-set-getf
|
||||
;;;;;; cl-getf cl-get cl-tailp cl-list-length cl-nreconc cl-revappend
|
||||
;;;;;; cl-concatenate cl-subseq cl-float-limits cl-random-state-p
|
||||
;;;;;; cl-make-random-state cl-random cl-signum cl-rem cl-mod cl-round
|
||||
;;;;;; cl-truncate cl-ceiling cl-floor cl-isqrt cl-lcm cl-gcd cl-progv-before
|
||||
;;;;;; cl-set-frame-visible-p cl-map-overlays cl-map-intervals cl-map-keymap-recursively
|
||||
;;;;;; cl-notevery cl-notany cl-every cl-some cl-mapcon cl-mapcan
|
||||
;;;;;; cl-mapl cl-maplist cl-map cl-mapcar-many cl-equalp cl-coerce)
|
||||
;;;;;; "cl-extra" "cl-extra.el" "fecce2e361fd06364d2ffd8c0d482cd0")
|
||||
;;; Generated autoloads from cl-extra.el
|
||||
|
||||
(autoload 'cl-coerce "cl-extra" "\
|
||||
|
|
@ -83,8 +82,6 @@ Return true if PREDICATE is false of some element of SEQ or SEQs.
|
|||
|
||||
\(fn PREDICATE SEQ...)" nil nil)
|
||||
|
||||
(defalias 'cl-map-keymap 'map-keymap)
|
||||
|
||||
(autoload 'cl-map-keymap-recursively "cl-extra" "\
|
||||
|
||||
|
||||
|
|
@ -248,28 +245,6 @@ Remove from SYMBOL's plist the property PROPNAME and its value.
|
|||
|
||||
\(fn SYMBOL PROPNAME)" nil nil)
|
||||
|
||||
(defalias 'cl-gethash 'gethash)
|
||||
|
||||
(defalias 'cl-puthash 'puthash)
|
||||
|
||||
(defalias 'cl-remhash 'remhash)
|
||||
|
||||
(defalias 'cl-clrhash 'clrhash)
|
||||
|
||||
(defalias 'cl-maphash 'maphash)
|
||||
|
||||
(defalias 'cl-make-hash-table 'make-hash-table)
|
||||
|
||||
(defalias 'cl-hash-table-p 'hash-table-p)
|
||||
|
||||
(defalias 'cl-hash-table-count 'hash-table-count)
|
||||
|
||||
(autoload 'cl-macroexpand-all "cl-extra" "\
|
||||
Expand all macro calls through a Lisp FORM.
|
||||
This also does some trivial optimizations to make the form prettier.
|
||||
|
||||
\(fn FORM &optional ENV)" nil nil)
|
||||
|
||||
(autoload 'cl-prettyexpand "cl-extra" "\
|
||||
|
||||
|
||||
|
|
@ -289,7 +264,7 @@ This also does some trivial optimizations to make the form prettier.
|
|||
;;;;;; cl-return cl-block cl-etypecase cl-typecase cl-ecase cl-case
|
||||
;;;;;; cl-load-time-value cl-eval-when cl-destructuring-bind cl-function
|
||||
;;;;;; cl-defmacro cl-defun cl-gentemp cl-gensym) "cl-macs" "cl-macs.el"
|
||||
;;;;;; "25086e27342ec0990f35f1748a5b7b4e")
|
||||
;;;;;; "c1e8e5391e374630452ab3d78e527086")
|
||||
;;; Generated autoloads from cl-macs.el
|
||||
|
||||
(autoload 'cl-gensym "cl-macs" "\
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue