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

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

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a975feb1f6..8177c0a9814 100644
--- 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 3d655d8d83a..e14e1edbebb 100644
--- 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)))))
 
-(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"