[Emacs-diffs] emacs/lisp/international ucs-normalize.el

[Glenn Morris]

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