Mercurial > hg > xemacs-beta
comparison lisp/cl/cl-autoload.el @ 0:376386a54a3c r19-14
Import from CVS: tag r19-14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:45:50 +0200 |
| parents | |
| children | ac2d302a0011 |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:376386a54a3c |
|---|---|
| 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 | |
| 23 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
| 24 | |
| 25 ;;; Synched up with: FSF 19.30 (cl.el). | |
| 26 | |
| 27 ;;; Commentary: | |
| 28 | |
| 29 ;;; Run this file to regenerate cl-defs.el. | |
| 30 ;;; Make sure to first erase the old autoloads from cl-defs.el! | |
| 31 | |
| 32 ;;; This file was extracted almost directly from cl.el, and the code | |
| 33 ;;; there was replaced with (load "cl-defs.el"). What used to happen | |
| 34 ;;; is that when cl.el was loaded, it set up autoloads for all of the | |
| 35 ;;; functions and macros in the other files. (See the commented-out | |
| 36 ;;; code below.) However, the doc strings didn't get properly inserted, | |
| 37 ;;; so the functions had no documentation, which is bad. I changed it | |
| 38 ;;; so that you run this only once (to generate cl-defs.el), and then | |
| 39 ;;; cl.el loads cl-defs.el. Note that this relies on a hacked | |
| 40 ;;; autoload.el (included with XEmacs 19.14 / 20.0). --ben | |
| 41 | |
| 42 ;;; Autoload the other portions of the package. | |
| 43 (mapcar (function | |
| 44 (lambda (set) | |
| 45 ; The old definition: | |
| 46 ; (mapcar (function | |
| 47 ; (lambda (func) | |
| 48 ; (autoload func (car set) nil nil (nth 1 set)))) | |
| 49 ; (cddr set)))) | |
| 50 (find-file "cl-defs.el") | |
| 51 (goto-char (point-max)) | |
| 52 (generate-file-autoloads (car set) (cddr set)))) | |
| 53 '(("cl-extra.el" nil | |
| 54 coerce equalp maplist mapc mapl mapcan mapcon | |
| 55 cl-map-keymap cl-map-keymap-recursively cl-map-intervals | |
| 56 cl-map-overlays cl-set-frame-visible-p cl-float-limits | |
| 57 gcd lcm isqrt floor* ceiling* truncate* round* | |
| 58 mod* rem* signum random* make-random-state random-state-p | |
| 59 concatenate cl-mapcar-many map some every notany | |
| 60 notevery revappend nreconc list-length tailp get* getf | |
| 61 cl-set-getf cl-do-remf make-hash-table cl-hash-lookup | |
| 62 cl-puthash hash-table-p | |
| 63 hash-table-count cl-progv-before cl-prettyexpand | |
| 64 cl-macroexpand-all | |
| 65 ;; XEmacs: removed the following: | |
| 66 ;; expt copy-tree subseq remprop gethash remhash clrhash maphash | |
| 67 ;; cl-map-keymap appeared twice | |
| 68 ) | |
| 69 ("cl-seq.el" nil | |
| 70 reduce fill replace remq remove remove* remove-if remove-if-not | |
| 71 delete* delete-if delete-if-not remove-duplicates | |
| 72 delete-duplicates substitute substitute-if substitute-if-not | |
| 73 nsubstitute nsubstitute-if nsubstitute-if-not find find-if | |
| 74 find-if-not position position-if position-if-not count count-if | |
| 75 count-if-not mismatch search sort* stable-sort merge member* | |
| 76 member-if member-if-not cl-adjoin assoc* assoc-if assoc-if-not | |
| 77 rassoc* rassoc-if rassoc-if-not union nunion intersection | |
| 78 nintersection set-difference nset-difference set-exclusive-or | |
| 79 nset-exclusive-or subsetp subst-if subst-if-not nsubst nsubst-if | |
| 80 nsubst-if-not sublis nsublis tree-equal | |
| 81 ;; XEmacs: removed the following: | |
| 82 ;; delete rassoc | |
| 83 ) | |
| 84 ("cl-macs.el" nil | |
| 85 gensym gentemp typep cl-do-pop get-setf-method | |
| 86 cl-struct-setf-expander compiler-macroexpand cl-compile-time-init) | |
| 87 ("cl-macs.el" t | |
| 88 defun* defmacro* function* destructuring-bind eval-when | |
| 89 load-time-value case ecase typecase etypecase | |
| 90 block return return-from loop do do* dolist dotimes do-symbols | |
| 91 do-all-symbols psetq progv flet labels macrolet symbol-macrolet | |
| 92 lexical-let lexical-let* multiple-value-bind multiple-value-setq | |
| 93 locally the declare define-setf-method defsetf define-modify-macro | |
| 94 setf psetf remf shiftf rotatef letf letf* callf callf2 defstruct | |
| 95 check-type assert ignore-errors define-compiler-macro | |
| 96 ;; XEmacs: removed the following: | |
| 97 ;; eval-when-compile | |
| 98 ))) |