Skip to content

GitLab

Commit 73874eb7 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

(check-range): Adjusted for Unicode 5.2.
parent 03fb33cf
Show whitespace changes
Inline Side-by-side
Showing with 10 additions and 4 deletions
lisp/ChangeLog
View file @ 73874eb7
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'
......
lisp/international/ucs-normalize.el
View file @ 73874eb7
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment