(unidata-prop-alist): Fix typo in description of `numeric-value'.

(unidata-put-character): Fix typo in error message.

2 files changed, 24 insertions, 15 deletions

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 094adb603ed..df4a5f0f727 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,9 @@
+2008-04-14  Juanma Barranquero  <lekktu@gmail.com>
+
+        * unidata/unidata-gen.el (unidata-prop-alist):
+        Fix typo in description of `numeric-value'.
+        (unidata-put-character): Fix typo in error message.
+
 2008-02-21  Glenn Morris  <rgm@gnu.org>
 
         * notes/unicode, notes/font-backend: New files, split off from
diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el
index a3015a4968d..8f8a9cb02af 100644
--- a/admin/unidata/unidata-gen.el
+++ b/admin/unidata/unidata-gen.el
@@ -40,8 +40,11 @@
 ;;      (name, generic-category, etc), and FILE is a name of one of
 ;;      the following files.
 ;;
-;;   uni-name.el, uni-cat.el, uni-comb.el, uni-bidi.el
-;;      It contains a single form of this format:
+;;   uni-name.el, uni-category.el, uni-combining.el, uni-bidi.el,
+;;   uni-decomposition.el, uni-decimal.el, uni-digit.el, uni-numeric.el,
+;;   uni-mirrored.el, uni-old-name.el, uni-comment.el, uni-uppercase.el,
+;;   uni-lowercase.el, uni-titlecase.el
+;;      They each contain a single form of this format:
 ;;        (char-code-property-register PROP CHAR-TABLE)
 ;;      where PROP is the same as above, and CHAR-TABLE is a
 ;;      char-table containing property values in a compressed format.
@@ -180,7 +183,7 @@ Property value is an integer.")
     (numeric-value
      8 unidata-gen-table-symbol "uni-numeric.el"
      "Unicode numeric value (numeric).
-Property value is an symbol.")
+Property value is a symbol.")
     (mirrored
      9 unidata-gen-table-symbol "uni-mirrored.el"
      "Unicode bidi mirrored flag.
@@ -255,7 +258,7 @@ Property value is a character."
 (defun unidata-put-character (char val table)
   (or (characterp val)
       (not val)
-      (error "Not an character nor nil: %S" val))
+      (error "Not a character nor nil: %S" val))
   (let ((current-val (aref table char)))
     (unless (eq current-val val)
       (if (stringp current-val)
@@ -364,7 +367,7 @@ Property value is a character."
              this-val))
           ((> val 0)
            (aref val-table (1- val))))))
-        
+
 ;; Return a integer-type character property value of CHAR.  VAL is the
 ;; current value of (aref TABLE CHAR).
 
@@ -492,7 +495,7 @@ Property value is a character."
               (set-char-table-range table (cons start limit) str))))))
 
     (setq val-list (nreverse (cdr val-list)))
-    (set-char-table-extra-slot table 0 prop) 
+    (set-char-table-extra-slot table 0 prop)
     (set-char-table-extra-slot table 4 (vconcat (mapcar 'car val-list)))
     table))
 
@@ -556,7 +559,7 @@ Property value is a character."
       (while (and l1 (eq (car l1) (car l2)))
         (setq beg (1+ beg)
               l1 (cdr l1) len1 (1- len1) l2 (cdr l2) len2 (1- len2)))
-      (while (and (< end len1) (< end len2) 
+      (while (and (< end len1) (< end len2)
                   (eq (nth (- len1 end 1) l1) (nth (- len2 end 1) l2)))
         (setq end (1+ end))))
     (if (= (+ beg end) 0)
@@ -628,7 +631,7 @@ Property value is a character."
 ;; CHAR).
 
 (defun unidata-get-name (char val table)
-  (cond 
+  (cond
    ((stringp val)
     (if (> (aref val 0) 0)
         val
@@ -659,7 +662,7 @@ Property value is a character."
                         (setq word-list (nconc word-list (list (car l)))
                               l (cdr l))))))
             (setq word-list
-                  (nconc word-list 
+                  (nconc word-list
                          (list (symbol-name
                                 (unidata-decode-word c word-table))))
                   i (1+ i))))
@@ -698,7 +701,7 @@ Property value is a character."
                      (V (/ (% char 588) 28))
                      ;; TIndex = SIndex % TCount
                      (T (% char 28)))
-                 (format "HANGUL SYLLABLE %s%s%s" 
+                 (format "HANGUL SYLLABLE %s%s%s"
                          ;; U+110B is nil in this table.
                          (or (aref (aref jamo-name-table 0) L) "")
                          (aref (aref jamo-name-table 1) V)
@@ -754,7 +757,7 @@ Property value is a character."
                         (setq word-list (nconc word-list (list (car l)))
                               l (cdr l))))))
             (setq word-list
-                  (nconc word-list 
+                  (nconc word-list
                          (list (or (unidata-decode-word c word-table) c)))
                   i (1+ i))))
         (if (or word-list tail-list)
@@ -933,7 +936,7 @@ Property value is a character."
           (if (= c 32)
               (setq l (cons (intern (substring str idx i)) l)
                     idx (1+ i))
-            (if (and (= c ?-) (< idx i) 
+            (if (and (= c ?-) (< idx i)
                      (< (1+ i) len) (/= (aref str (1+ i)) 32))
                 (setq l (cons '- (cons (intern (substring str idx i)) l))
                       idx (1+ i)))))
@@ -985,7 +988,7 @@ Property value is a character."
     (byte-compile 'unidata-put-decomposition)
     (set-char-table-extra-slot table 1
                                (symbol-function 'unidata-get-decomposition))
-    (set-char-table-extra-slot table 2 
+    (set-char-table-extra-slot table 2
                                (symbol-function 'unidata-put-decomposition))
     (set-char-table-extra-slot table 4 (car word-tables))
     table))
@@ -1088,7 +1091,7 @@ Property value is a character."
     (let* ((prop (car elt))
            (index (unidata-prop-index prop))
            (generator (unidata-prop-generator prop))
-           (table (progn 
+           (table (progn
                     (message "Generating %S table..." prop)
                     (funcall generator prop)))
            (decoder (char-table-extra-slot table 1))
@@ -1114,7 +1117,7 @@ Property value is a character."
               (message "%S %04X" prop check)
               (setq check (+ check #x400)))
             (or (equal val1 val2)
-                (insert (format "> %04X %S\n< %04X %S\n" 
+                (insert (format "> %04X %S\n< %04X %S\n"
                                 char val1 char val2)))
             (sit-for 0)))))))