diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-05-05 18:52:57 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-05-05 18:52:57 +0000 |
commit | ae39f49b67ec5be79ffd8bef5668d07c18f8850a (patch) | |
tree | ad3646323968bd5a10d54fbbc56e789962c71b65 | |
parent | 2764b7542ebf5f7627adb7b5d83c12c0f0f63104 (diff) | |
download | emacs-ae39f49b67ec5be79ffd8bef5668d07c18f8850a.tar.gz |
(Fmsdos_long_file_names): New function.
(syms_of_dosfns): defsubr it.
-rw-r--r-- | src/dosfns.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/dosfns.c b/src/dosfns.c index 6030f0696c3..11e30c07591 100644 --- a/src/dosfns.c +++ b/src/dosfns.c @@ -241,6 +241,18 @@ Return nil if startup screen is not available.") 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 @@ syms_of_dosfns () 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); |