Mercurial > hg > xemacs-beta
diff lisp/autoload.el @ 778:2923009caf47
[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 |
line wrap: on
line diff
--- a/lisp/autoload.el Fri Mar 15 11:00:56 2002 +0000 +++ b/lisp/autoload.el Sat Mar 16 10:39:19 2002 +0000 @@ -2,7 +2,7 @@ ;; Copyright (C) 1991, 1992, 1993, 1994, 1997 Free Software Foundation, Inc. ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp. -;; Copyright (C) 1996, 2000 Ben Wing. +;; Copyright (C) 1996, 2000, 2002 Ben Wing. ;; Author: Roland McGrath <roland@gnu.ai.mit.edu> ;; Keywords: maint @@ -43,8 +43,9 @@ "Turn FORM, a defun or defmacro, into an autoload for source file FILE. Returns nil if FORM is not a defun, define-skeleton or defmacro." (let ((car (car-safe form))) - (if (memq car '(defun define-skeleton defmacro define-derived-mode)) - (let ((macrop (eq car 'defmacro)) + (if (memq car '(defun defun* define-skeleton defmacro defmacro* + define-derived-mode)) + (let ((macrop (memq car '(defmacro defmacro*))) name doc) (setq form (cdr form) name (car form) @@ -66,8 +67,6 @@ (if macrop (list 'quote 'macro) nil))) nil))) -(put 'define-skeleton 'doc-string-elt 3) - (defvar generate-autoload-cookie ";;;###autoload" "Magic comment indicating the following form should be autoloaded. Used by `update-file-autoloads'. This string should be @@ -113,9 +112,12 @@ (put 'autoload 'doc-string-elt 3) (put 'defun 'doc-string-elt 3) +(put 'defun* 'doc-string-elt 3) (put 'defvar 'doc-string-elt 3) (put 'defconst 'doc-string-elt 3) (put 'defmacro 'doc-string-elt 3) +(put 'defmacro* 'doc-string-elt 3) +(put 'define-skeleton 'doc-string-elt 3) (defun autoload-trim-file-name (file) "Returns a relative pathname of FILE including the last directory."