Mercurial > emacs

comparison src/coding.h @ 41323:084520255528

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Vw32_system_coding_system) [WINDOWSNT]: Remove. (ENCODE_SYSTEM, DECODE_SYSTEM) [WINDOWSNT]: Use Vlocale_coding_system.
author Jason Rumney <jasonr@gnu.org>
date Tue, 20 Nov 2001 22:01:56 +0000
parents bdd381bc9eb0
children 72a36dc37ced
comparison
equal deleted inserted replaced
41322:482c520b29ba 41323:084520255528
588 588
589 #ifdef WINDOWSNT 589 #ifdef WINDOWSNT
590 /* Encode the string STR using the specified coding system 590 /* Encode the string STR using the specified coding system
591 for w32 system functions, if any. */ 591 for w32 system functions, if any. */
592 #define ENCODE_SYSTEM(str) \ 592 #define ENCODE_SYSTEM(str) \
593 (! NILP (Vw32_system_coding_system) \ 593 (! NILP (Vlocale_coding_system) \
594 && XFASTINT (Vw32_system_coding_system) != 0 \ 594 && XFASTINT (Vlocale_coding_system) != 0 \
595 ? code_convert_string_norecord (str, Vw32_system_coding_system, 1) \ 595 ? code_convert_string_norecord (str, Vlocale_coding_system, 1) \
596 : str) 596 : str)
597 597
598 /* Decode the string STR using the specified coding system 598 /* Decode the string STR using the specified coding system
599 for w32 system functions, if any. */ 599 for w32 system functions, if any. */
600 #define DECODE_SYSTEM(name) \ 600 #define DECODE_SYSTEM(name) \
601 (! NILP (Vw32_system_coding_system) \ 601 (! NILP (Vlocale_coding_system) \
602 && XFASTINT (Vw32_system_coding_system) != 0 \ 602 && XFASTINT (Vlocale_coding_system) != 0 \
603 ? code_convert_string_norecord (str, Vw32_system_coding_system, 0) \ 603 ? code_convert_string_norecord (str, Vlocale_coding_system, 0) \
604 : str) 604 : str)
605 605
606 #else /* WINDOWSNT */ 606 #else /* WINDOWSNT */
607 607
608 #define ENCODE_SYSTEM(str) string_make_unibyte(str) 608 #define ENCODE_SYSTEM(str) string_make_unibyte(str)
705 705
706 /* Coding system for file names used only when 706 /* Coding system for file names used only when
707 Vfile_name_coding_system is nil. */ 707 Vfile_name_coding_system is nil. */
708 extern Lisp_Object Vdefault_file_name_coding_system; 708 extern Lisp_Object Vdefault_file_name_coding_system;
709 709
710 #ifdef WINDOWSNT
711 /* Coding system for w32 system strings, or nil if none. */
712 extern Lisp_Object Vw32_system_coding_system;
713 #endif
714 #endif 710 #endif
715 711
716 /* Error signaled when there's a problem with detecting coding system */ 712 /* Error signaled when there's a problem with detecting coding system */
717 extern Lisp_Object Qcoding_system_error; 713 extern Lisp_Object Qcoding_system_error;
718 714