Mercurial > hg > xemacs-beta
view lisp/cl/cl-autoload.el @ 152:4c132ee2d62b
Added tag r20-3b2 for changeset 59463afc5666
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:37:21 +0200 |
parents | ac2d302a0011 |
children |
line wrap: on
line source
;;; 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, Inc., 59 Temple Place - Suite 330, Boston, MA ;; 02111-1307, USA. ;;; Synched up with: FSF 19.34 (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 )))