From d11ba98c5031e245b1b166e52bb0c59d8abab37c Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 21 Nov 1997 14:52:16 +0000 Subject: [PATCH] (Fchar_to_string): Declare `workbuf' as unsigned char. (general_insert_function): Likewise. Protoize parameters. Define as returning nothing. --- src/editfns.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index 8287e9ccca..59856d3142 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -126,7 +126,7 @@ DEFUN ("char-to-string", Fchar_to_string, Schar_to_string, 1, 1, 0, Lisp_Object character; { int len; - char workbuf[4], *str; + unsigned char workbuf[4], *str; CHECK_NUMBER (character, 0); @@ -1284,9 +1284,11 @@ set_time_zone_rule (tzstring) type of object is Lisp_String). INHERIT is passed to INSERT_FROM_STRING_FUNC as the last argument. */ +void general_insert_function (insert_func, insert_from_string_func, inherit, nargs, args) - int (*insert_func)(), (*insert_from_string_func)(); + void (*insert_func) P_ ((unsigned char *, int)); + void (*insert_from_string_func) P_ ((Lisp_Object, int, int, int)); int inherit, nargs; register Lisp_Object *args; { @@ -1299,7 +1301,7 @@ general_insert_function (insert_func, insert_from_string_func, retry: if (INTEGERP (val)) { - char workbuf[4], *str; + unsigned char workbuf[4], *str; int len; if (!NILP (current_buffer->enable_multibyte_characters)) -- 2.20.1