mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

(scan_lisp_file): Recognize defalias like fset.

Browse source
This commit is contained in:
Richard M. Stallman 1993-05-22 22:07:57 +00:00
parent 1613b7573b
commit 2d6e26196e
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib-src/make-docfile.c
View file

@ -403,6 +403,7 @@ scan_c_file (filename)
(defconst NAME VALUE DOCSTRING)
(fset (quote NAME) (make-byte-code ... DOCSTRING ...))
(fset (quote NAME) #[... DOCSTRING ...])
(defalias (quote NAME) #[... DOCSTRING ...])
starting in column zero.
(quote NAME) may appear as 'NAME as well.
For defun, defmacro, and autoload, we know how to skip over the arglist.
@ -563,7 +564,7 @@ scan_lisp_file (filename)
}
}
else if (! strcmp (buffer, "fset"))
else if (! strcmp (buffer, "fset") || ! strcmp (buffer, "defalias"))
{
char c1 = 0, c2 = 0;
type = 'F';