Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 778:2923009caf47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 00c54252fe4f
children d41e92ee6d12
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
1 ;;; autoload.el --- maintain autoloads in loaddefs.el. 1 ;;; autoload.el --- maintain autoloads in loaddefs.el.
2 2
3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1997 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 Ben Wing. 5 ;; Copyright (C) 1996, 2000, 2002 Ben Wing.
6 6
7 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu> 7 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
8 ;; Keywords: maint 8 ;; Keywords: maint
9 9
10 ;; This file is part of XEmacs. 10 ;; This file is part of XEmacs.
41 41
42 (defun make-autoload (form file) 42 (defun make-autoload (form file)
43 "Turn FORM, a defun or defmacro, into an autoload for source file FILE. 43 "Turn FORM, a defun or defmacro, into an autoload for source file FILE.
44 Returns nil if FORM is not a defun, define-skeleton or defmacro." 44 Returns nil if FORM is not a defun, define-skeleton or defmacro."
45 (let ((car (car-safe form))) 45 (let ((car (car-safe form)))
46 (if (memq car '(defun define-skeleton defmacro define-derived-mode)) 46 (if (memq car '(defun defun* define-skeleton defmacro defmacro*
47 (let ((macrop (eq car 'defmacro)) 47 define-derived-mode))
48 (let ((macrop (memq car '(defmacro defmacro*)))
48 name doc) 49 name doc)
49 (setq form (cdr form) 50 (setq form (cdr form)
50 name (car form) 51 name (car form)
51 ;; Ignore the arguments. 52 ;; Ignore the arguments.
52 form (cdr (cond ((eq car 'define-skeleton) 53 form (cdr (cond ((eq car 'define-skeleton)
64 (eq car 'define-derived-mode) 65 (eq car 'define-derived-mode)
65 (eq (car-safe (car form)) 'interactive)) 66 (eq (car-safe (car form)) 'interactive))
66 (if macrop (list 'quote 'macro) nil))) 67 (if macrop (list 'quote 'macro) nil)))
67 nil))) 68 nil)))
68 69
69 (put 'define-skeleton 'doc-string-elt 3)
70
71 (defvar generate-autoload-cookie ";;;###autoload" 70 (defvar generate-autoload-cookie ";;;###autoload"
72 "Magic comment indicating the following form should be autoloaded. 71 "Magic comment indicating the following form should be autoloaded.
73 Used by `update-file-autoloads'. This string should be 72 Used by `update-file-autoloads'. This string should be
74 meaningless to Lisp (e.g., a comment). 73 meaningless to Lisp (e.g., a comment).
75 74
111 ;;; which have autoloaded entries *and* are processed by make-docfile; 110 ;;; which have autoloaded entries *and* are processed by make-docfile;
112 ;;; there should be no such files. 111 ;;; there should be no such files.
113 112
114 (put 'autoload 'doc-string-elt 3) 113 (put 'autoload 'doc-string-elt 3)
115 (put 'defun 'doc-string-elt 3) 114 (put 'defun 'doc-string-elt 3)
115 (put 'defun* 'doc-string-elt 3)
116 (put 'defvar 'doc-string-elt 3) 116 (put 'defvar 'doc-string-elt 3)
117 (put 'defconst 'doc-string-elt 3) 117 (put 'defconst 'doc-string-elt 3)
118 (put 'defmacro 'doc-string-elt 3) 118 (put 'defmacro 'doc-string-elt 3)
119 (put 'defmacro* 'doc-string-elt 3)
120 (put 'define-skeleton 'doc-string-elt 3)
119 121
120 (defun autoload-trim-file-name (file) 122 (defun autoload-trim-file-name (file)
121 "Returns a relative pathname of FILE including the last directory." 123 "Returns a relative pathname of FILE including the last directory."
122 (setq file (expand-file-name file)) 124 (setq file (expand-file-name file))
123 (replace-in-string 125 (replace-in-string