From 2dfda9629392dcbbab91366c34efaa63b5730d49 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Tue, 30 May 2000 21:19:39 +0000 Subject: [PATCH] (ENCODE_SYSTEM, DECODE_SYSTEM) [WINDOWSNT]: New macros. [WINDOWSNT]: Add extern for Vw32_system_coding_system. --- src/coding.h | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/src/coding.h b/src/coding.h index c7cff63634d..b76074796de 100644 --- a/src/coding.h +++ b/src/coding.h @@ -591,6 +591,24 @@ struct coding_system ? code_convert_string_norecord (name, Vdefault_file_name_coding_system, 0) \ : name)) +#ifdef WINDOWSNT +/* Encode the string STR using the specified coding system + for w32 system functions, if any. */ +#define ENCODE_SYSTEM(str) \ + (! NILP (Vw32_system_coding_system) \ + && XFASTINT (Vw32_system_coding_system) != 0 \ + ? code_convert_string_norecord (str, Vw32_system_coding_system, 1) \ + : str) + +/* Decode the string STR using the specified coding system + for w32 system functions, if any. */ +#define DECODE_SYSTEM(name) \ + (! NILP (Vw32_system_coding_system) \ + && XFASTINT (Vw32_system_coding_system) != 0 \ + ? code_convert_string_norecord (str, Vw32_system_coding_system, 0) \ + : str) +#endif + /* Extern declarations. */ extern int decode_coding P_ ((struct coding_system *, unsigned char *, unsigned char *, int, int)); @@ -681,6 +699,11 @@ extern Lisp_Object Vfile_name_coding_system; /* Coding system for file names used only when Vfile_name_coding_system is nil. */ extern Lisp_Object Vdefault_file_name_coding_system; + +#ifdef WINDOWSNT +/* Coding system for w32 system strings, or nil if none. */ +extern Lisp_Object Vw32_system_coding_system; +#endif #endif #endif /* _CODING_H */ -- 2.39.5