comparison src/editfns.c @ 31225:7930c46bb365

(toplevel) [HAVE_STRING_H]: Include string.h. (toplevel) [HAVE_STRINGS_H]: Include strings.h. (index): Remove prototypes which might conflict with non-standard definitions of index/strchr.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 28 Aug 2000 15:03:29 +0000
parents e19d38e14720
children 3ecef4a7b3cd
comparison
equal deleted inserted replaced
31224:fa7a79afcbf7 31225:7930c46bb365
39 #include "charset.h" 39 #include "charset.h"
40 #include "coding.h" 40 #include "coding.h"
41 #include "window.h" 41 #include "window.h"
42 42
43 #include "systime.h" 43 #include "systime.h"
44
45 #ifdef HAVE_STRING_H
46 #include <string.h>
47 #endif
48
49 #ifdef HAVE_STRINGS_H
50 #include <strings.h>
51 #endif
44 52
45 #define min(a, b) ((a) < (b) ? (a) : (b)) 53 #define min(a, b) ((a) < (b) ? (a) : (b))
46 #define max(a, b) ((a) > (b) ? (a) : (b)) 54 #define max(a, b) ((a) > (b) ? (a) : (b))
47 55
48 #ifndef NULL 56 #ifndef NULL
1136 (uid) 1144 (uid)
1137 Lisp_Object uid; 1145 Lisp_Object uid;
1138 { 1146 {
1139 struct passwd *pw; 1147 struct passwd *pw;
1140 register unsigned char *p, *q; 1148 register unsigned char *p, *q;
1141 extern char *index ();
1142 Lisp_Object full; 1149 Lisp_Object full;
1143 1150
1144 if (NILP (uid)) 1151 if (NILP (uid))
1145 return Vuser_full_name; 1152 return Vuser_full_name;
1146 else if (NUMBERP (uid)) 1153 else if (NUMBERP (uid))
3015 Lisp_Object val; 3022 Lisp_Object val;
3016 struct info 3023 struct info
3017 { 3024 {
3018 int start, end; 3025 int start, end;
3019 } *info = 0; 3026 } *info = 0;
3020
3021 extern char *index ();
3022 3027
3023 /* It should not be necessary to GCPRO ARGS, because 3028 /* It should not be necessary to GCPRO ARGS, because
3024 the caller in the interpreter should take care of that. */ 3029 the caller in the interpreter should take care of that. */
3025 3030
3026 /* Try to determine whether the result should be multibyte. 3031 /* Try to determine whether the result should be multibyte.