diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/cl/cl-autoload.el	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,98 @@
+;;; cl-autoload.el --- Generate the autoload file cl-defs.el.
+
+;; Copyright (C) 1993 Free Software Foundation, Inc.
+
+;; Author: Dave Gillespie <daveg@synaptics.com>, Ben Wing <wing@666.com>
+;; Version: 2.02
+;; Keywords: extensions, lisp
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING.  If not, write to the Free
+;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;; Synched up with: FSF 19.30 (cl.el).
+
+;;; Commentary:
+
+;;; Run this file to regenerate cl-defs.el.
+;;; Make sure to first erase the old autoloads from cl-defs.el!
+
+;;; This file was extracted almost directly from cl.el, and the code
+;;; there was replaced with (load "cl-defs.el").  What used to happen
+;;; is that when cl.el was loaded, it set up autoloads for all of the
+;;; functions and macros in the other files. (See the commented-out
+;;; code below.) However, the doc strings didn't get properly inserted,
+;;; so the functions had no documentation, which is bad.  I changed it
+;;; so that you run this only once (to generate cl-defs.el), and then
+;;; cl.el loads cl-defs.el.  Note that this relies on a hacked
+;;; autoload.el (included with XEmacs 19.14 / 20.0). --ben
+
+;;; Autoload the other portions of the package.
+(mapcar (function
+	 (lambda (set)
+;	   The old definition:
+;	   (mapcar (function
+;		    (lambda (func)
+;		      (autoload func (car set) nil nil (nth 1 set))))
+;		   (cddr set))))
+	   (find-file "cl-defs.el")
+	   (goto-char (point-max))
+	   (generate-file-autoloads (car set) (cddr set))))
+	'(("cl-extra.el" nil
+	   coerce equalp maplist mapc mapl mapcan mapcon
+	   cl-map-keymap cl-map-keymap-recursively cl-map-intervals
+	   cl-map-overlays cl-set-frame-visible-p cl-float-limits
+	   gcd lcm isqrt floor* ceiling* truncate* round*
+	   mod* rem* signum random* make-random-state random-state-p
+	   concatenate cl-mapcar-many map some every notany
+	   notevery revappend nreconc list-length tailp get* getf
+	   cl-set-getf cl-do-remf make-hash-table cl-hash-lookup
+	   cl-puthash hash-table-p
+	   hash-table-count cl-progv-before cl-prettyexpand
+	   cl-macroexpand-all
+	   ;; XEmacs: removed the following:
+	   ;; expt copy-tree subseq remprop gethash remhash clrhash maphash
+	   ;; cl-map-keymap appeared twice
+	   )
+	  ("cl-seq.el" nil
+	   reduce fill replace remq remove remove* remove-if remove-if-not
+	   delete* delete-if delete-if-not remove-duplicates
+	   delete-duplicates substitute substitute-if substitute-if-not
+	   nsubstitute nsubstitute-if nsubstitute-if-not find find-if
+	   find-if-not position position-if position-if-not count count-if
+	   count-if-not mismatch search sort* stable-sort merge member*
+	   member-if member-if-not cl-adjoin assoc* assoc-if assoc-if-not
+	   rassoc* rassoc-if rassoc-if-not union nunion intersection
+	   nintersection set-difference nset-difference set-exclusive-or
+	   nset-exclusive-or subsetp subst-if subst-if-not nsubst nsubst-if
+	   nsubst-if-not sublis nsublis tree-equal
+	   ;; XEmacs: removed the following:
+	   ;; delete rassoc
+	   )
+	  ("cl-macs.el" nil
+	   gensym gentemp typep cl-do-pop get-setf-method
+	   cl-struct-setf-expander compiler-macroexpand cl-compile-time-init)
+	  ("cl-macs.el" t
+	   defun* defmacro* function* destructuring-bind eval-when
+	   load-time-value case ecase typecase etypecase
+	   block return return-from loop do do* dolist dotimes do-symbols
+	   do-all-symbols psetq progv flet labels macrolet symbol-macrolet
+	   lexical-let lexical-let* multiple-value-bind multiple-value-setq
+	   locally the declare define-setf-method defsetf define-modify-macro
+	   setf psetf remf shiftf rotatef letf letf* callf callf2 defstruct
+	   check-type assert ignore-errors define-compiler-macro
+	   ;; XEmacs: removed the following:
+	   ;; eval-when-compile
+	   )))