0
|
1 ;;; cl-autoload.el --- Generate the autoload file cl-defs.el.
|
|
2
|
|
3 ;; Copyright (C) 1993 Free Software Foundation, Inc.
|
|
4
|
|
5 ;; Author: Dave Gillespie <daveg@synaptics.com>, Ben Wing <wing@666.com>
|
|
6 ;; Version: 2.02
|
|
7 ;; Keywords: extensions, lisp
|
|
8
|
|
9 ;; This file is part of XEmacs.
|
|
10
|
|
11 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
12 ;; under the terms of the GNU General Public License as published by
|
|
13 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
14 ;; any later version.
|
|
15
|
|
16 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
19 ;; General Public License for more details.
|
|
20
|
|
21 ;; You should have received a copy of the GNU General Public License
|
|
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free
|
2
|
23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
|
24 ;; 02111-1307, USA.
|
0
|
25
|
2
|
26 ;;; Synched up with: FSF 19.34 (cl.el).
|
0
|
27
|
|
28 ;;; Commentary:
|
|
29
|
|
30 ;;; Run this file to regenerate cl-defs.el.
|
|
31 ;;; Make sure to first erase the old autoloads from cl-defs.el!
|
|
32
|
|
33 ;;; This file was extracted almost directly from cl.el, and the code
|
|
34 ;;; there was replaced with (load "cl-defs.el"). What used to happen
|
|
35 ;;; is that when cl.el was loaded, it set up autoloads for all of the
|
|
36 ;;; functions and macros in the other files. (See the commented-out
|
|
37 ;;; code below.) However, the doc strings didn't get properly inserted,
|
|
38 ;;; so the functions had no documentation, which is bad. I changed it
|
|
39 ;;; so that you run this only once (to generate cl-defs.el), and then
|
|
40 ;;; cl.el loads cl-defs.el. Note that this relies on a hacked
|
|
41 ;;; autoload.el (included with XEmacs 19.14 / 20.0). --ben
|
|
42
|
|
43 ;;; Autoload the other portions of the package.
|
|
44 (mapcar (function
|
|
45 (lambda (set)
|
|
46 ; The old definition:
|
|
47 ; (mapcar (function
|
|
48 ; (lambda (func)
|
|
49 ; (autoload func (car set) nil nil (nth 1 set))))
|
|
50 ; (cddr set))))
|
|
51 (find-file "cl-defs.el")
|
|
52 (goto-char (point-max))
|
|
53 (generate-file-autoloads (car set) (cddr set))))
|
|
54 '(("cl-extra.el" nil
|
|
55 coerce equalp maplist mapc mapl mapcan mapcon
|
|
56 cl-map-keymap cl-map-keymap-recursively cl-map-intervals
|
|
57 cl-map-overlays cl-set-frame-visible-p cl-float-limits
|
|
58 gcd lcm isqrt floor* ceiling* truncate* round*
|
|
59 mod* rem* signum random* make-random-state random-state-p
|
|
60 concatenate cl-mapcar-many map some every notany
|
|
61 notevery revappend nreconc list-length tailp get* getf
|
|
62 cl-set-getf cl-do-remf make-hash-table cl-hash-lookup
|
|
63 cl-puthash hash-table-p
|
|
64 hash-table-count cl-progv-before cl-prettyexpand
|
|
65 cl-macroexpand-all
|
|
66 ;; XEmacs: removed the following:
|
|
67 ;; expt copy-tree subseq remprop gethash remhash clrhash maphash
|
|
68 ;; cl-map-keymap appeared twice
|
|
69 )
|
|
70 ("cl-seq.el" nil
|
|
71 reduce fill replace remq remove remove* remove-if remove-if-not
|
|
72 delete* delete-if delete-if-not remove-duplicates
|
|
73 delete-duplicates substitute substitute-if substitute-if-not
|
|
74 nsubstitute nsubstitute-if nsubstitute-if-not find find-if
|
|
75 find-if-not position position-if position-if-not count count-if
|
|
76 count-if-not mismatch search sort* stable-sort merge member*
|
|
77 member-if member-if-not cl-adjoin assoc* assoc-if assoc-if-not
|
|
78 rassoc* rassoc-if rassoc-if-not union nunion intersection
|
|
79 nintersection set-difference nset-difference set-exclusive-or
|
|
80 nset-exclusive-or subsetp subst-if subst-if-not nsubst nsubst-if
|
|
81 nsubst-if-not sublis nsublis tree-equal
|
|
82 ;; XEmacs: removed the following:
|
|
83 ;; delete rassoc
|
|
84 )
|
|
85 ("cl-macs.el" nil
|
|
86 gensym gentemp typep cl-do-pop get-setf-method
|
|
87 cl-struct-setf-expander compiler-macroexpand cl-compile-time-init)
|
|
88 ("cl-macs.el" t
|
|
89 defun* defmacro* function* destructuring-bind eval-when
|
|
90 load-time-value case ecase typecase etypecase
|
|
91 block return return-from loop do do* dolist dotimes do-symbols
|
|
92 do-all-symbols psetq progv flet labels macrolet symbol-macrolet
|
|
93 lexical-let lexical-let* multiple-value-bind multiple-value-setq
|
|
94 locally the declare define-setf-method defsetf define-modify-macro
|
|
95 setf psetf remf shiftf rotatef letf letf* callf callf2 defstruct
|
|
96 check-type assert ignore-errors define-compiler-macro
|
|
97 ;; XEmacs: removed the following:
|
|
98 ;; eval-when-compile
|
|
99 )))
|