(describe-char-unidata-list): Initialize to the

list of name, general-category, decomposition, and old-name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a975feb1f6bf13896d476bdefdbbdcf2f8dfc79..8177c0a98140f98cb855d4714d1d669a47c1f186 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-17  Kenichi Handa  <handa@m17n.org>
+
+       * descr-text.el (describe-char-unidata-list): Initialize to the
+       list of name, general-category, decomposition, and old-name.
+
 2008-07-16  Adrian Robert  <Adrian.B.Robert@gmail.com>
 
        * startup.el (command-line-1): Update processing of NS long options to

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 3d655d8d83a47c403642817d3f0eaf482e33788f..e14e1edbebb66aa7fa1701833e06465625bda930 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -179,7 +179,8 @@ otherwise."
        (insert "There are text properties here:\n")
        (describe-property-list properties)))))
 \f
-(defcustom describe-char-unidata-list nil
+(defcustom describe-char-unidata-list
+  '(name general-category decomposition old-name)
   "List of Unicode-based character property names shown by `describe-char'."
   :group 'mule
   :version "23.1"