/[emacs]/emacs/src/lread.c
ViewVC logotype

Diff of /emacs/src/lread.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.294 by raeburn, Tue Jul 16 17:34:35 2002 UTC revision 1.295 by raeburn, Tue Jul 16 19:48:47 2002 UTC
# Line 958  static int Line 958  static int
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]))
# Line 1122  openp (path, str, suffixes, storeptr, pr Line 1122  openp (path, str, suffixes, storeptr, pr
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);
# Line 2973  Lisp_Object initial_obarray; Line 2973  Lisp_Object initial_obarray;
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.  */
# Line 2997  check_obarray (obarray) Line 2996  check_obarray (obarray)
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);
# Line 3174  OBARRAY defaults to the value of the var Line 3173  OBARRAY defaults to the value of the var
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;
# Line 3215  oblookup (obarray, ptr, size, size_byte) Line 3214  oblookup (obarray, ptr, size, size_byte)
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    

Legend:
Removed from v.1.294  
changed lines
  Added in v.1.295

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26