Mercurial > hg > xemacs-beta

comparison src/nt.c @ 4487:866b84b7c97e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove interactive specs from #'mswindows-{short,long}-file-name, 2008-07-20 John Paul Wallington <jpw@pobox.com> * nt.c (Fmswindows_short_file_name, Fmswindows_long_file_name): Remove their interactive specs; they shouldn't be called interactively.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 26 Jul 2008 11:50:26 +0200
parents 3e7493e76dc7
children 5bbff3553494
comparison
equal deleted inserted replaced
4486:f9104f0e9b91 4487:866b84b7c97e
2061 2061
2062 2062
2063 /* Some miscellaneous functions that are Windows specific, but not GUI 2063 /* Some miscellaneous functions that are Windows specific, but not GUI
2064 specific (ie. are applicable in terminal or batch mode as well). */ 2064 specific (ie. are applicable in terminal or batch mode as well). */
2065 2065
2066 DEFUN ("mswindows-short-file-name", Fmswindows_short_file_name, 1, 1, "", /* 2066 DEFUN ("mswindows-short-file-name", Fmswindows_short_file_name, 1, 1, 0, /*
2067 Return the short file name version (8.3) of the full path of FILENAME. 2067 Return the short file name version (8.3) of the full path of FILENAME.
2068 If FILENAME does not exist, return nil. 2068 If FILENAME does not exist, return nil.
2069 All path elements in FILENAME are converted to their short names. 2069 All path elements in FILENAME are converted to their short names.
2070 */ 2070 */
2071 (filename)) 2071 (filename))
2090 2090
2091 return build_intstring (shortint); 2091 return build_intstring (shortint);
2092 } 2092 }
2093 2093
2094 2094
2095 DEFUN ("mswindows-long-file-name", Fmswindows_long_file_name, 1, 1, "", /* 2095 DEFUN ("mswindows-long-file-name", Fmswindows_long_file_name, 1, 1, 0, /*
2096 Return the long file name version of the full path of FILENAME. 2096 Return the long file name version of the full path of FILENAME.
2097 If FILENAME does not exist, return nil. 2097 If FILENAME does not exist, return nil.
2098 All path elements in FILENAME are converted to their long names. 2098 All path elements in FILENAME are converted to their long names.
2099 */ 2099 */
2100 (filename)) 2100 (filename))