procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(utf-translate-cjk-mode): Minor mode,

Browse source 
replaces variable utf-translate-cjk which must be set via Custom.
This commit is contained in:
Kai Großjohann 2003-03-29 17:11:42 +00:00
parent beb402deed
commit fcfdeaf69d
2 changed files with 54 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2003-03-29 Kai Gro,A_(Bjohann <kai.grossjohann@gmx.net>
* international/utf-8.el (utf-translate-cjk-mode): Minor mode,
replaces variable utf-translate-cjk which must be set via Custom.
* files.el (file-relative-name): If FILENAME and DIRECTORY are on
different drives (on DOS/Windows) or use different handlers, do
like `expand-file-name' on FILENAME and return an absolute name.

102
lisp/international/utf-8.el
View file

@ -190,7 +190,7 @@ Setting this variable outside customize has no effect."
:type 'boolean
:group 'mule)
(defcustom utf-translate-cjk nil
(define-minor-mode utf-translate-cjk-mode
"Whether the UTF based coding systems should decode/encode CJK characters.
Enabling this loads tables which allow the coding systems mule-utf-8,
mule-utf-16-le and mule-utf-16-be to encode characters in the charsets
@ -205,59 +205,59 @@ Chinese-Big5 and jisx for other environments.
The tables are large (over 40000 entries), so this option is not the
default. Also, installing them may be rather slow."
:set (lambda (s v)
(if v
;; Fixme: Allow the use of the CJK charsets to be
;; customized by reordering and possible omission.
(progn
;; Redefine them with realistic initial sizes and a
;; smallish rehash size to avoid wasting significant
;; space after they're built.
(setq ucs-mule-cjk-to-unicode
(make-hash-table :test 'eq :size 43000 :rehash-size 1000)
ucs-unicode-to-mule-cjk
(make-hash-table :test 'eq :size 43000 :rehash-size 1000))
;; Load the files explicitly, to avoid having to keep
;; around the large tables they contain (as well as the
;; ones which get built).
(cond
((string= "Korean" current-language-environment)
(load "subst-jis")
(load "subst-big5")
(load "subst-gb2312")
(load "subst-ksc"))
((string= "Chinese-BIG5" current-language-environment)
(load "subst-jis")
(load "subst-ksc")
(load "subst-gb2312")
(load "subst-big5"))
((string= "Chinese-GB" current-language-environment)
(load "subst-jis")
(load "subst-ksc")
(load "subst-big5")
(load "subst-gb2312"))
(t
(load "subst-ksc")
(load "subst-gb2312")
(load "subst-big5")
(load "subst-jis"))) ; jis covers as much as big5, gb2312
(let ((table (make-char-table 'translation-table)))
(maphash (lambda (k v)
(aset table k t))
ucs-mule-cjk-to-unicode)
(define-translation-hash-table 'utf-subst-table-for-decode
ucs-unicode-to-mule-cjk)
(define-translation-hash-table 'utf-subst-table-for-encode
ucs-mule-cjk-to-unicode))
(define-translation-hash-table 'utf-subst-table-for-decode
(make-hash-table :test 'eq))
(define-translation-hash-table 'utf-subst-table-for-encode
(make-hash-table :test 'eq))))
(set-default s v))
:init-value nil
:version "21.4"
:type 'boolean
:set-after '(current-language-environment)
:group 'mule)
:group 'mule
:global t
(if utf-translate-cjk-mode
;; Fixme: Allow the use of the CJK charsets to be
;; customized by reordering and possible omission.
(progn
;; Redefine them with realistic initial sizes and a
;; smallish rehash size to avoid wasting significant
;; space after they're built.
(setq ucs-mule-cjk-to-unicode
(make-hash-table :test 'eq :size 43000 :rehash-size 1000)
ucs-unicode-to-mule-cjk
(make-hash-table :test 'eq :size 43000 :rehash-size 1000))
;; Load the files explicitly, to avoid having to keep
;; around the large tables they contain (as well as the
;; ones which get built).
(cond
((string= "Korean" current-language-environment)
(load "subst-jis")
(load "subst-big5")
(load "subst-gb2312")
(load "subst-ksc"))
((string= "Chinese-BIG5" current-language-environment)
(load "subst-jis")
(load "subst-ksc")
(load "subst-gb2312")
(load "subst-big5"))
((string= "Chinese-GB" current-language-environment)
(load "subst-jis")
(load "subst-ksc")
(load "subst-big5")
(load "subst-gb2312"))
(t
(load "subst-ksc")
(load "subst-gb2312")
(load "subst-big5")
(load "subst-jis"))) ; jis covers as much as big5, gb2312
(let ((table (make-char-table 'translation-table)))
(maphash (lambda (k v)
(aset table k t))
ucs-mule-cjk-to-unicode)
(define-translation-hash-table 'utf-subst-table-for-decode
ucs-unicode-to-mule-cjk)
(define-translation-hash-table 'utf-subst-table-for-encode
ucs-mule-cjk-to-unicode))
(define-translation-hash-table 'utf-subst-table-for-decode
(make-hash-table :test 'eq))
(define-translation-hash-table 'utf-subst-table-for-encode
(make-hash-table :test 'eq)))))
(define-ccl-program ccl-decode-mule-utf-8
;;