Mercurial > emacs
comparison src/lread.c @ 112434:9de5a68b57e1
Promote SSDATA macro from gtkutil.c and xsmfns.c to lisp.h.
author | Paul Eggert <eggert@cs.ucla.edu> |
---|---|
date | Sat, 22 Jan 2011 18:56:06 -0800 |
parents | 42e22c4f06b7 |
children |
comparison
equal
deleted
inserted
replaced
112433:7b649f6eac4f | 112434:9de5a68b57e1 |
---|---|
1080 efound = ENCODE_FILE (found); | 1080 efound = ENCODE_FILE (found); |
1081 | 1081 |
1082 #ifdef DOS_NT | 1082 #ifdef DOS_NT |
1083 fmode = "rb"; | 1083 fmode = "rb"; |
1084 #endif /* DOS_NT */ | 1084 #endif /* DOS_NT */ |
1085 stat ((char *)SDATA (efound), &s1); | 1085 stat (SSDATA (efound), &s1); |
1086 SSET (efound, SBYTES (efound) - 1, 0); | 1086 SSET (efound, SBYTES (efound) - 1, 0); |
1087 result = stat ((char *)SDATA (efound), &s2); | 1087 result = stat (SSDATA (efound), &s2); |
1088 SSET (efound, SBYTES (efound) - 1, 'c'); | 1088 SSET (efound, SBYTES (efound) - 1, 'c'); |
1089 | 1089 |
1090 if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime) | 1090 if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime) |
1091 { | 1091 { |
1092 /* Make the progress messages mention that source is newer. */ | 1092 /* Make the progress messages mention that source is newer. */ |
1123 GCPRO3 (file, found, hist_file_name); | 1123 GCPRO3 (file, found, hist_file_name); |
1124 | 1124 |
1125 #ifdef WINDOWSNT | 1125 #ifdef WINDOWSNT |
1126 emacs_close (fd); | 1126 emacs_close (fd); |
1127 efound = ENCODE_FILE (found); | 1127 efound = ENCODE_FILE (found); |
1128 stream = fopen ((char *) SDATA (efound), fmode); | 1128 stream = fopen (SSDATA (efound), fmode); |
1129 #else /* not WINDOWSNT */ | 1129 #else /* not WINDOWSNT */ |
1130 stream = fdopen (fd, fmode); | 1130 stream = fdopen (fd, fmode); |
1131 #endif /* not WINDOWSNT */ | 1131 #endif /* not WINDOWSNT */ |
1132 if (stream == 0) | 1132 if (stream == 0) |
1133 { | 1133 { |
4402 Qrehash_size = intern_c_string ("rehash-size"); | 4402 Qrehash_size = intern_c_string ("rehash-size"); |
4403 staticpro (&Qrehash_size); | 4403 staticpro (&Qrehash_size); |
4404 Qrehash_threshold = intern_c_string ("rehash-threshold"); | 4404 Qrehash_threshold = intern_c_string ("rehash-threshold"); |
4405 staticpro (&Qrehash_threshold); | 4405 staticpro (&Qrehash_threshold); |
4406 } | 4406 } |
4407 |