comparison src/msdos.c @ 15174:08937f70419e

(Fmsdos_long_file_names): New function. (syms_of_msdos): Defsubr it.
author Richard M. Stallman <rms@gnu.org>
date Mon, 06 May 1996 10:21:23 +0000
parents 4dc406e38d68
children 242bddc25e5a
comparison
equal deleted inserted replaced
15173:88a496a7964c 15174:08937f70419e
2223 } 2223 }
2224 } 2224 }
2225 2225
2226 #endif /* __DJGPP__ == 2 && __DJGPP_MINOR__ == 0 */ 2226 #endif /* __DJGPP__ == 2 && __DJGPP_MINOR__ == 0 */
2227 2227
2228 2228 DEFUN ("msdos-long-file-names", Fmsdos_long_file_names, Smsdos_long_file_names,
2229 0, 0, 0,
2230 "Return non-nil if long file names are supported on MSDOS.")
2231 ()
2232 {
2233 return (_USE_LFN ? Qt : Qnil);
2234 }
2229 2235
2230 /* The Emacs root directory as determined by init_environment. */ 2236 /* The Emacs root directory as determined by init_environment. */
2231 2237
2232 static char emacsroot[MAXPATHLEN]; 2238 static char emacsroot[MAXPATHLEN];
2233 2239
2915 { 2921 {
2916 recent_doskeys = Fmake_vector (make_number (NUM_RECENT_DOSKEYS), Qnil); 2922 recent_doskeys = Fmake_vector (make_number (NUM_RECENT_DOSKEYS), Qnil);
2917 staticpro (&recent_doskeys); 2923 staticpro (&recent_doskeys);
2918 2924
2919 defsubr (&Srecent_doskeys); 2925 defsubr (&Srecent_doskeys);
2926 defsubt (&Smsdos_long_file_names);
2920 } 2927 }
2921 2928
2922 #endif /* MSDOS */ 2929 #endif /* MSDOS */