procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(first, ..., tenth): Make them macros.

Browse source 
(toplevel): Remove `remq' and `remove' from autoloads.
(cl-fake-autoloads): New variable.  If set, arrange for an error
when CL functions etc. are autoloaded.
This commit is contained in:
Gerd Moellmann 2000-08-05 20:09:44 +00:00
parent 3db3a13fe3
commit ed590ca87c
1 changed files with 27 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

44
lisp/emacs-lisp/cl.el
View file

@ -332,41 +332,41 @@ SEQ, this is like `mapcar'. With several, it is like the Common Lisp
(defalias 'rest 'cdr) (defalias 'rest 'cdr)
(defalias 'endp 'null) (defalias 'endp 'null)
(defun second (x) (defmacro second (x)
"Return the second element of the list LIST." "Return the second element of the list LIST."
(car (cdr x))) `(car (cdr ,x)))
(defun third (x) (defmacro third (x)
"Return the third element of the list LIST." "Return the third element of the list LIST."
(car (cdr (cdr x)))) `(car (cdr (cdr ,x))))
(defun fourth (x) (defmacro fourth (x)
"Return the fourth element of the list LIST." "Return the fourth element of the list LIST."
(nth 3 x)) `(nth 3 ,x))
(defun fifth (x) (defmacro fifth (x)
"Return the fifth element of the list LIST." "Return the fifth element of the list LIST."
(nth 4 x)) `(nth 4 ,x))
(defun sixth (x) (defmacro sixth (x)
"Return the sixth element of the list LIST." "Return the sixth element of the list LIST."
(nth 5 x)) `(nth 5 ,x))
(defun seventh (x) (defmacro seventh (x)
"Return the seventh element of the list LIST." "Return the seventh element of the list LIST."
(nth 6 x)) `(nth 6 ,x))
(defun eighth (x) (defmacro eighth (x)
"Return the eighth element of the list LIST." "Return the eighth element of the list LIST."
(nth 7 x)) `(nth 7 ,x))
(defun ninth (x) (defmacro ninth (x)
"Return the ninth element of the list LIST." "Return the ninth element of the list LIST."
(nth 8 x)) `(nth 8 ,x))
(defun tenth (x) (defmacro tenth (x)
"Return the tenth element of the list LIST." "Return the tenth element of the list LIST."
(nth 9 x)) `(nth 9 ,x))
(defun caaar (x) (defun caaar (x)
"Return the `car' of the `car' of the `car' of X." "Return the `car' of the `car' of the `car' of X."
@ -565,13 +565,17 @@ Keywords supported: :test :test-not :key"
(put 'cl-assertion-failed 'error-conditions '(error)) (put 'cl-assertion-failed 'error-conditions '(error))
(put 'cl-assertion-failed 'error-message "Assertion failed") (put 'cl-assertion-failed 'error-message "Assertion failed")
(defvar cl-fake-autoloads nil
"Non-nil means don't make CL functions autoload.")
;;; Autoload the other portions of the package. ;;; Autoload the other portions of the package.
(mapcar (function (mapcar (function
(lambda (set) (lambda (set)
(let ((file (if cl-fake-autoloads "<none>" (car set))))
(mapcar (function (mapcar (function
(lambda (func) (lambda (func)
(autoload func (car set) nil nil (nth 1 set)))) (autoload func (car set) nil nil (nth 1 set))))
(cddr set)))) (cddr set)))))
'(("cl-extra" nil '(("cl-extra" nil
coerce equalp cl-map-keymap maplist mapc mapl mapcan mapcon coerce equalp cl-map-keymap maplist mapc mapl mapcan mapcon
cl-map-keymap cl-map-keymap-recursively cl-map-intervals cl-map-keymap cl-map-keymap-recursively cl-map-intervals
@ -585,7 +589,7 @@ Keywords supported: :test :test-not :key"
cl-hash-table-count cl-progv-before cl-prettyexpand cl-hash-table-count cl-progv-before cl-prettyexpand
cl-macroexpand-all) cl-macroexpand-all)
("cl-seq" nil ("cl-seq" nil
reduce fill replace remq remove remove* remove-if remove-if-not reduce fill replace remove* remove-if remove-if-not
delete* delete-if delete-if-not remove-duplicates delete* delete-if delete-if-not remove-duplicates
delete-duplicates substitute substitute-if substitute-if-not delete-duplicates substitute substitute-if substitute-if-not
nsubstitute nsubstitute-if nsubstitute-if-not find find-if nsubstitute nsubstitute-if nsubstitute-if-not find find-if