Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 969:d41e92ee6d12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-08-22 11:19:45 by stephent] typos & comments <87n0rfno3u.fsf@tleepslib.sk.tsukuba.ac.jp> <87it23nnvx.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 22 Aug 2002 11:19:58 +0000
parents 2923009caf47
children 25e260cb7994
comparison
equal deleted inserted replaced
968:715eed24e30e 969:d41e92ee6d12
38 ;; Sep-26-1997: slb removed code dealing with customization. 38 ;; Sep-26-1997: slb removed code dealing with customization.
39 39
40 ;;; Code: 40 ;;; Code:
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 a definition generator FORM 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, defun*, defmacro, defmacro*,
45 define-skeleton, or define-derived-mode."
45 (let ((car (car-safe form))) 46 (let ((car (car-safe form)))
46 (if (memq car '(defun defun* define-skeleton defmacro defmacro* 47 (if (memq car '(defun defun* define-skeleton defmacro defmacro*
47 define-derived-mode)) 48 define-derived-mode))
48 (let ((macrop (memq car '(defmacro defmacro*))) 49 (let ((macrop (memq car '(defmacro defmacro*)))
49 name doc) 50 name doc)
116 (put 'defvar 'doc-string-elt 3) 117 (put 'defvar 'doc-string-elt 3)
117 (put 'defconst 'doc-string-elt 3) 118 (put 'defconst 'doc-string-elt 3)
118 (put 'defmacro 'doc-string-elt 3) 119 (put 'defmacro 'doc-string-elt 3)
119 (put 'defmacro* 'doc-string-elt 3) 120 (put 'defmacro* 'doc-string-elt 3)
120 (put 'define-skeleton 'doc-string-elt 3) 121 (put 'define-skeleton 'doc-string-elt 3)
122 (put 'define-derived-mode 'doc-string-elt 4)
121 123
122 (defun autoload-trim-file-name (file) 124 (defun autoload-trim-file-name (file)
123 "Returns a relative pathname of FILE including the last directory." 125 "Returns a relative pathname of FILE including the last directory."
124 (setq file (expand-file-name file)) 126 (setq file (expand-file-name file))
125 (replace-in-string 127 (replace-in-string