Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
fc89daee
Commit
fc89daee
authored
May 26, 1998
by
Richard M. Stallman
Browse files
(make-autoload): Add support for define-derived-mode. Update the
doc-string accordingly.
parent
2d75b395
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
6 deletions
+10
-6
lisp/emacs-lisp/autoload.el
lisp/emacs-lisp/autoload.el
+10
-6
No files found.
lisp/emacs-lisp/autoload.el
View file @
fc89daee
...
...
@@ -61,23 +61,25 @@ that text will be copied verbatim to `generated-autoload-file'.")
(
defun
make-autoload
(
form
file
)
"Turn FORM into an autoload or defvar for source file FILE.
Returns nil if FORM is not a defun, define-skeleton, defmacro or defcustom."
Returns nil if FORM is not a defun, define-skeleton, define-derived-mode,
defmacro or defcustom."
(
let
((
car
(
car-safe
form
)))
(
if
(
memq
car
'
(
defun
define-skeleton
defmacro
))
(
if
(
memq
car
'
(
defun
define-skeleton
defmacro
define-derived-mode
))
(
let
((
macrop
(
eq
car
'defmacro
))
name
doc
)
(
setq
form
(
cdr
form
)
name
(
car
form
)
;; Ignore the arguments.
form
(
cdr
(
if
(
eq
car
'define-skeleton
)
form
(
cdr
form
)))
form
(
cdr
(
cond
((
eq
car
'define-skeleton
)
form
)
((
eq
car
'define-derived-mode
)
(
cdr
(
cdr
form
)))
(
t
(
cdr
form
))))
doc
(
car
form
))
(
if
(
stringp
doc
)
(
setq
form
(
cdr
form
))
(
setq
doc
nil
))
(
list
'autoload
(
list
'quote
name
)
file
doc
(
or
(
eq
car
'define-skeleton
)
(
or
(
eq
car
'define-skeleton
)
(
eq
car
'define-derived-mode
)
(
eq
(
car-safe
(
car
form
))
'interactive
))
(
if
macrop
(
list
'quote
'macro
)
nil
)))
;; Convert defcustom to a simpler (and less space-consuming) defvar,
...
...
@@ -123,6 +125,8 @@ Returns nil if FORM is not a defun, define-skeleton, defmacro or defcustom."
(
put
'defcustom
'doc-string-elt
3
)
(
put
'defconst
'doc-string-elt
3
)
(
put
'defmacro
'doc-string-elt
3
)
(
put
'define-derived-mode
'doc-string-elt
4
)
(
defun
autoload-trim-file-name
(
file
)
;; Returns a relative pathname of FILE
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment