Mercurial > emacs
changeset 15168:a167da647656
(Fmsdos_long_file_names): New function.
(syms_of_dosfns): defsubr it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 05 May 1996 18:52:57 +0000 |
| parents | d9e712c9cc68 |
| children | a00021443533 |
| files | src/dosfns.c |
| diffstat | 1 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/dosfns.c Sun May 05 17:32:15 1996 +0000 +++ b/src/dosfns.c Sun May 05 18:52:57 1996 +0000 @@ -241,6 +241,18 @@ return Qt; } +DEFUN ("msdos-long-file-names", Fmsdos_long_file_names, Smsdos_long_file_names, + 0, 0, 0, + "Return non-nil if long file names are supported. on MSDOS.") + () +{ +#if __DJGPP__ >= 2 + return (! NILP (Fgetenv ("LFN")) ? Qt : Qnil); +#else + return Qnil; +#endif +} + /* country info */ int dos_country_code; @@ -320,6 +332,7 @@ defsubr (&Smsdos_set_keyboard); defsubr (&Sinsert_startup_screen); defsubr (&Smsdos_mouse_disable); + defsubr (&Smsdos_long_file_names); #ifndef HAVE_X_WINDOWS defsubr (&Smsdos_mouse_p); defsubr (&Sset_mouse_position);