[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/international ucs-normalize.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/international ucs-normalize.el |
Date: |
Sat, 22 Aug 2009 19:14:37 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/08/22 19:14:37
Modified files:
lisp/international: ucs-normalize.el
Log message:
(nfd, decomposition-translation-alist, decomposition-char-recursively)
(alist-list-to-vector, quick-check-list, quick-check-list-to-regexp):
Declare.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/ucs-normalize.el?cvsroot=emacs&r1=1.5&r2=1.6
Patches:
Index: ucs-normalize.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/ucs-normalize.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- ucs-normalize.el 18 Aug 2009 19:17:25 -0000 1.5
+++ ucs-normalize.el 22 Aug 2009 19:14:37 -0000 1.6
@@ -112,6 +112,8 @@
(eval-when-compile (require 'cl))
+(declare-function nfd "ucs-normalize" (char))
+
(eval-when-compile
(defconst ucs-normalize-composition-exclusions
@@ -251,6 +253,12 @@
(setq ucs-normalize-combining-chars-regexp
(eval-when-compile (concat (regexp-opt (mapcar 'char-to-string
combining-chars)) "+")))
+(declare-function decomposition-translation-alist "ucs-normalize"
+ (decomposition-function))
+(declare-function decomposition-char-recursively "ucs-normalize"
+ (char decomposition-function))
+(declare-function alist-list-to-vector "ucs-normalize" (alist))
+
(eval-when-compile
(defun decomposition-translation-alist (decomposition-function)
@@ -364,6 +372,10 @@
chars)))
)
+(declare-function quick-check-list "ucs-normalize"
+ (decomposition-translation &optional composition-predicate))
+(declare-function quick-check-list-to-regexp "ucs-normalize"
(quick-check-list))
+
(eval-when-compile
(defun quick-check-list (decomposition-translation