From 35d95cf6c10eb019a27197ee3f1b133c91c1855d Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sun, 9 May 2004 13:45:14 +0000 Subject: [PATCH] (cp932, cp936, cp949, cp950): Add aliases. Also add cp125* if not already defined. --- lisp/international/code-pages.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/international/code-pages.el b/lisp/international/code-pages.el index ce88a88dac2..cb81c23b012 100644 --- a/lisp/international/code-pages.el +++ b/lisp/international/code-pages.el @@ -4486,15 +4486,20 @@ Return an updated `non-iso-charset-alist'." (let ((w (intern (format "windows-125%d" i))) (c (intern (format "cp125%d" i)))) (if (coding-system-p c) ; 1251 is in cyrillic.el - (define-coding-system-alias c w)) + (define-coding-system-alias c w) + (if (coding-system-p w) + (define-coding-system-alias w c))) ;; Compatibility with codepage.el, though cp... are not the ;; canonical names. (push (assoc w non-iso-charset-alist) non-iso-charset-alist))) -;; Use Unicode font under Windows. Jason Rumney fecit. -(if (fboundp 'w32-add-charset-info) - (unless (boundp 'w32-unicode-charset-defined) - (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))) +;; DOS/Windows codepages that correspond to coding systems already supported +;; by Emacs. Only codepages used as system codepages are listed here, +;; to assist in finding the appropriate coding-system for clipboard etc. +(define-coding-system-alias 'cp932 'japanese-shift-jis) +(define-coding-system-alias 'cp936 'chinese-iso-8bit) +(define-coding-system-alias 'cp949 'korean-iso-8bit) +(define-coding-system-alias 'cp950 'chinese-big5) (provide 'code-pages) -- 2.39.2