mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-14 23:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(defvar_bool, defvar_int, defvar_lisp, defvar_lisp_nopro):

Browse source 
Delete third arg DOC.
This commit is contained in:
Richard M. Stallman 1994-06-01 20:37:42 +00:00
parent e1ab4959f3
commit e9e00ff2ea
1 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/lread.c
View file

@ -1752,17 +1752,14 @@ defalias (sname, string)
}
#endif /* NOTDEF */
/* New replacement for DefIntVar; it ignores the doc string argument
on the assumption that make-docfile will handle that. */
/* Define an "integer variable"; a symbol whose value is forwarded
to a C variable of type int. Sample call: */
/* DEFVARINT ("indent-tabs-mode", &indent_tabs_mode, "Documentation"); */
void
defvar_int (namestring, address, doc)
defvar_int (namestring, address)
char *namestring;
int *address;
char *doc;
{
Lisp_Object sym;
sym = intern (namestring);
@ -1773,10 +1770,9 @@ defvar_int (namestring, address, doc)
NIL if address contains 0 */
void
defvar_bool (namestring, address, doc)
defvar_bool (namestring, address)
char *namestring;
int *address;
char *doc;
{
Lisp_Object sym;
sym = intern (namestring);
@ -1786,10 +1782,9 @@ defvar_bool (namestring, address, doc)
/* Similar but define a variable whose value is the Lisp Object stored at address. */
void
defvar_lisp (namestring, address, doc)
defvar_lisp (namestring, address)
char *namestring;
Lisp_Object *address;
char *doc;
{
Lisp_Object sym;
sym = intern (namestring);
@ -1802,10 +1797,9 @@ defvar_lisp (namestring, address, doc)
since marking the same slot twice can cause trouble with strings. */
void
defvar_lisp_nopro (namestring, address, doc)
defvar_lisp_nopro (namestring, address)
char *namestring;
Lisp_Object *address;
char *doc;
{
Lisp_Object sym;
sym = intern (namestring);