Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 5126:2a462149bd6a ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 24 Feb 2010 19:04:27 -0600
parents b0f4adffca7d
children d555581e3cba
comparison
equal deleted inserted replaced
5125:b5df3737028a 5126:2a462149bd6a
1 ;;; autoload.el --- maintain autoloads in auto-autoloads files. 1 ;;; autoload.el --- maintain autoloads in auto-autoloads files.
2 2
3 ;; Copyright (C) 1991-1994, 1997, 2003 Free Software Foundation, Inc. 3 ;; Copyright (C) 1991-1994, 1997, 2003 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp. 4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
5 ;; Copyright (C) 1996, 2000, 2002, 2003, 2004 Ben Wing. 5 ;; Copyright (C) 1996, 2000, 2002, 2003, 2004, 2010 Ben Wing.
6 6
7 ;; Original Author: Roland McGrath <roland@gnu.ai.mit.edu> 7 ;; Original Author: Roland McGrath <roland@gnu.ai.mit.edu>
8 ;; Heavily Modified: XEmacs Maintainers 8 ;; Heavily Modified: XEmacs Maintainers
9 ;; Keywords: maint 9 ;; Keywords: maint
10 10
288 (if (memq car '(defmacro defmacro* defun defun*)) 288 (if (memq car '(defmacro defmacro* defun defun*))
289 (let ((arglist (nth 2 form)) 289 (let ((arglist (nth 2 form))
290 (placeholder (eval-when-compile (gensym)))) 290 (placeholder (eval-when-compile (gensym))))
291 (setq doc (concat (or doc "") 291 (setq doc (concat (or doc "")
292 "\n\narguments: " 292 "\n\narguments: "
293 (replace-in-string 293 (cl-function-arglist placeholder arglist t)
294 (cl-function-arglist placeholder arglist) 294 "\n"))))
295 (format "^(%s ?" placeholder)
296 "(") "\n"))))
297 ;; `define-generic-mode' quotes the name, so take care of that 295 ;; `define-generic-mode' quotes the name, so take care of that
298 (list 'autoload (if (listp name) name (list 'quote name)) file doc 296 (list 'autoload (if (listp name) name (list 'quote name)) file doc
299 (or (and (memq car '(define-skeleton define-derived-mode 297 (or (and (memq car '(define-skeleton define-derived-mode
300 define-generic-mode 298 define-generic-mode
301 easy-mmode-define-global-mode 299 easy-mmode-define-global-mode