Mercurial > emacs
changeset 20298:b7d23d2eded1
(read1): Declare `workbuf' as unsigned char.
(dir_warning): Define as returning nothing.
(init_lread): Likewise.
(mapatoms_1): Likewise.
(map_obarray): Fix type of parameter FN.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Fri, 21 Nov 1997 12:54:36 +0000 |
| parents | bf0a54297d95 |
| children | 608c1a9aefc8 |
| files | src/lread.c |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Fri Nov 21 12:49:52 1997 +0000 +++ b/src/lread.c Fri Nov 21 12:54:36 1997 +0000 @@ -1652,8 +1652,8 @@ c = read_escape (readcharfun); if (! SINGLE_BYTE_CHAR_P ((c & ~CHAR_META))) { - char workbuf[4]; - char *str = workbuf; + unsigned char workbuf[4]; + unsigned char *str = workbuf; int length; length = non_ascii_char_to_string (c, workbuf, &str); @@ -2296,7 +2296,7 @@ void map_obarray (obarray, fn, arg) Lisp_Object obarray; - int (*fn) (); + void (*fn) P_ ((Lisp_Object, Lisp_Object)); Lisp_Object arg; { register int i; @@ -2316,6 +2316,7 @@ } } +void mapatoms_1 (sym, function) Lisp_Object sym, function; { @@ -2514,6 +2515,7 @@ so we can see if the site changed it later during dumping. */ static Lisp_Object dump_path; +void init_lread () { char *normal; @@ -2687,6 +2689,7 @@ /* Print a warning, using format string FORMAT, that directory DIRNAME does not exist. Print it on stderr and put it in *Message*. */ +void dir_warning (format, dirname) char *format; Lisp_Object dirname;