958 |
complete_filename_p (pathname) |
complete_filename_p (pathname) |
959 |
Lisp_Object pathname; |
Lisp_Object pathname; |
960 |
{ |
{ |
961 |
register unsigned char *s = SDATA (pathname); |
register const unsigned char *s = SDATA (pathname); |
962 |
return (IS_DIRECTORY_SEP (s[0]) |
return (IS_DIRECTORY_SEP (s[0]) |
963 |
|| (SCHARS (pathname) > 2 |
|| (SCHARS (pathname) > 2 |
964 |
&& IS_DEVICE_SEP (s[1]) && IS_DIRECTORY_SEP (s[2])) |
&& IS_DEVICE_SEP (s[1]) && IS_DIRECTORY_SEP (s[2])) |
1122 |
} |
} |
1123 |
else |
else |
1124 |
{ |
{ |
1125 |
char *pfn; |
const char *pfn; |
1126 |
|
|
1127 |
encoded_fn = ENCODE_FILE (string); |
encoded_fn = ENCODE_FILE (string); |
1128 |
pfn = SDATA (encoded_fn); |
pfn = SDATA (encoded_fn); |
2973 |
int oblookup_last_bucket_number; |
int oblookup_last_bucket_number; |
2974 |
|
|
2975 |
static int hash_string (); |
static int hash_string (); |
|
Lisp_Object oblookup (); |
|
2976 |
|
|
2977 |
/* Get an error if OBARRAY is not an obarray. |
/* Get an error if OBARRAY is not an obarray. |
2978 |
If it is one, return it. */ |
If it is one, return it. */ |
2996 |
|
|
2997 |
Lisp_Object |
Lisp_Object |
2998 |
intern (str) |
intern (str) |
2999 |
char *str; |
const char *str; |
3000 |
{ |
{ |
3001 |
Lisp_Object tem; |
Lisp_Object tem; |
3002 |
int len = strlen (str); |
int len = strlen (str); |
3173 |
Lisp_Object |
Lisp_Object |
3174 |
oblookup (obarray, ptr, size, size_byte) |
oblookup (obarray, ptr, size, size_byte) |
3175 |
Lisp_Object obarray; |
Lisp_Object obarray; |
3176 |
register char *ptr; |
register const char *ptr; |
3177 |
int size, size_byte; |
int size, size_byte; |
3178 |
{ |
{ |
3179 |
int hash; |
int hash; |
3214 |
|
|
3215 |
static int |
static int |
3216 |
hash_string (ptr, len) |
hash_string (ptr, len) |
3217 |
unsigned char *ptr; |
const unsigned char *ptr; |
3218 |
int len; |
int len; |
3219 |
{ |
{ |
3220 |
register unsigned char *p = ptr; |
register const unsigned char *p = ptr; |
3221 |
register unsigned char *end = p + len; |
register const unsigned char *end = p + len; |
3222 |
register unsigned char c; |
register unsigned char c; |
3223 |
register int hash = 0; |
register int hash = 0; |
3224 |
|
|