Mercurial > emacs
comparison lib-src/make-docfile.c @ 28401:65f19ae2c578
(scan_lisp_file): Also look for `defsubst'.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Wed, 29 Mar 2000 21:32:12 +0000 |
| parents | 134b57acef68 |
| children | 39b2af5f7ee2 |
comparison
equal
deleted
inserted
replaced
| 28400:206604013d7f | 28401:65f19ae2c578 |
|---|---|
| 524 | 524 |
| 525 /* Read a file of Lisp code, compiled or interpreted. | 525 /* Read a file of Lisp code, compiled or interpreted. |
| 526 Looks for | 526 Looks for |
| 527 (defun NAME ARGS DOCSTRING ...) | 527 (defun NAME ARGS DOCSTRING ...) |
| 528 (defmacro NAME ARGS DOCSTRING ...) | 528 (defmacro NAME ARGS DOCSTRING ...) |
| 529 (defsubst NAME ARGS DOCSTRING ...) | |
| 529 (autoload (quote NAME) FILE DOCSTRING ...) | 530 (autoload (quote NAME) FILE DOCSTRING ...) |
| 530 (defvar NAME VALUE DOCSTRING) | 531 (defvar NAME VALUE DOCSTRING) |
| 531 (defconst NAME VALUE DOCSTRING) | 532 (defconst NAME VALUE DOCSTRING) |
| 532 (fset (quote NAME) (make-byte-code ... DOCSTRING ...)) | 533 (fset (quote NAME) (make-byte-code ... DOCSTRING ...)) |
| 533 (fset (quote NAME) #[... DOCSTRING ...]) | 534 (fset (quote NAME) #[... DOCSTRING ...]) |
| 673 continue; | 674 continue; |
| 674 | 675 |
| 675 read_lisp_symbol (infile, buffer); | 676 read_lisp_symbol (infile, buffer); |
| 676 | 677 |
| 677 if (! strcmp (buffer, "defun") | 678 if (! strcmp (buffer, "defun") |
| 678 || ! strcmp (buffer, "defmacro")) | 679 || ! strcmp (buffer, "defmacro") |
| 680 || ! strcmp (buffer, "defsubst")) | |
| 679 { | 681 { |
| 680 type = 'F'; | 682 type = 'F'; |
| 681 read_lisp_symbol (infile, buffer); | 683 read_lisp_symbol (infile, buffer); |
| 682 | 684 |
| 683 /* Skip the arguments: either "nil" or a list in parens */ | 685 /* Skip the arguments: either "nil" or a list in parens */ |