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 */ |