andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ucs-normalize-version): Changed to 1.2.

Browse source 
(check-range): Adjusted for Unicode 5.2.
This commit is contained in:
Kenichi Handa 2009-10-16 00:48:52 +00:00
parent 03fb33cf75
commit 73874eb74c
2 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2009-10-16 Taichi Kawabata <kawabata.taichi@gmail.com>
* international/ucs-normalize.el (ucs-normalize-version): Changed
to 1.2.
(check-range): Adjusted for Unicode 5.2.
2009-10-15 Juri Linkov <juri@jurta.org>
* menu-bar.el (menu-bar-file-menu): Convert `separator-exit'

8
lisp/international/ucs-normalize.el
View file

@ -23,7 +23,7 @@
;;; Commentary:
;;
;; This program has passed the NormalizationTest-5.1.0.txt.
;; This program has passed the NormalizationTest-5.2.0.txt.
;;
;; References:
;; http://www.unicode.org/reports/tr15/
@ -108,7 +108,7 @@
;;; Code:
(defconst ucs-normalize-version "1.1")
(defconst ucs-normalize-version "1.2")
(eval-when-compile (require 'cl))
@ -130,11 +130,11 @@
#x1D1BF #x1D1C0)
"Composition Exclusion List.
This list is taken from
http://www.unicode.org/Public/UNIDATA/CompositionExclusions-5.1.0.txt")
http://www.unicode.org/Public/UNIDATA/5.2/CompositionExclusions.txt")
;; Unicode ranges that decompositions & combinings are defined.
(defvar check-range nil)
(setq check-range '((#x00a0 . #x3400) (#xA600 . #xAC00) (#xF900 . #x10fff) (#x1d000 . #x1dfff) (#x2f800 . #x2faff)))
(setq check-range '((#x00a0 . #x3400) (#xA600 . #xAC00) (#xF900 . #x110ff) (#x1d000 . #x1dfff) (#x1f100 . #x1f2ff) (#x2f800 . #x2faff)))
;; Basic normalization functions
(defun nfd (char)