Commit c406be43 authored by Kenichi Handa's avatar Kenichi Handa

Make the default values of character properties name, old-name, and iso-10646-comment to nil.

parent f15bcb40
2012-02-16 Kenichi Handa <handa@m17n.org>
* unidata/unidata-gen.el (unidata-prop-alist): Change the default
values of name and old-name to nil.
(unidata-get-name): Return nil for the default value.
2012-02-11 Glenn Morris <rgm@gnu.org>
* admin.el (cusver-find-files, cusver-scan, cusver-goto-xref)
......
......@@ -166,9 +166,10 @@
'((name
1 unidata-gen-table-name "uni-name.el"
"Unicode character name.
Property value is a string."
Property value is a string or nil.
The value nil stands for the default value \"null string\")."
nil
"")
nil)
(general-category
2 unidata-gen-table-symbol "uni-category.el"
"Unicode general category.
......@@ -235,7 +236,8 @@ Property value is a symbol `Y' or `N'. See also the property `mirroring'."
(old-name
10 unidata-gen-table-name "uni-old-name.el"
"Unicode old names as published in Unicode 1.0.
Property value is a string.")
Property value is a string or nil.
The value nil stands for the default value \"null string\").")
(iso-10646-comment
11 unidata-gen-table-name "uni-comment.el"
"Unicode ISO 10646 comment.
......@@ -712,7 +714,7 @@ is the character itself.")))
(aset table c name)
(if (= c char)
(setq val name))))
(or val ""))))
val)))
((and (integerp val) (> val 0))
(let* ((symbol-table (aref (char-table-extra-slot table 4) 1))
......@@ -738,9 +740,7 @@ is the character itself.")))
((eq sym 'CJK\ COMPATIBILITY\ IDEOGRAPH)
(format "%s-%04X" sym char))
((eq sym 'VARIATION\ SELECTOR)
(format "%s-%d" sym (+ (- char #xe0100) 17))))))
(t "")))
(format "%s-%d" sym (+ (- char #xe0100) 17))))))))
;; Store VAL as the name of CHAR in TABLE.
......
2012-02-16 Kenichi Handa <handa@m17n.org>
* international/charprop.el:
* international/uni-name.el:
* international/uni-old-name.el:
* international/uni-comment.el: Regenerate.
2012-02-14 Glenn Morris <rgm@gnu.org>
* mail/smtpmail.el (smtpmail-query-smtp-server): Give it a doc.
......
......@@ -2,7 +2,8 @@
;; FILE: uni-name.el
(define-char-code-property 'name "uni-name.el"
"Unicode character name.
Property value is a string.")
Property value is a string or nil.
The value nil stands for the default value \"null string\").")
;; FILE: uni-category.el
(define-char-code-property 'general-category "uni-category.el"
"Unicode general category.
......@@ -48,7 +49,8 @@ Property value is a symbol `Y' or `N'. See also the property `mirroring'.")
;; FILE: uni-old-name.el
(define-char-code-property 'old-name "uni-old-name.el"
"Unicode old names as published in Unicode 1.0.
Property value is a string.")
Property value is a string or nil.
The value nil stands for the default value \"null string\").")
;; FILE: uni-comment.el
(define-char-code-property 'iso-10646-comment "uni-comment.el"
"Unicode ISO 10646 comment.
......
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