From: Juri Linkov <juri@jurta.org>
Date: Sat, 22 Nov 2008 20:43:27 +0000 (+0000)
Subject: (describe-char-unidata-list): Move `old-name' to be immediately after `name'.
X-Git-Tag: emacs-pretest-23.0.90~1623
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e0f6cbde0ac647c2f9a2873693f1d14ca3d58a1;p=emacs.git

(describe-char-unidata-list): Move `old-name' to be immediately after `name'.
---

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 689e4d3df6a..f7bf647d151 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -180,13 +180,14 @@ otherwise."
 	(describe-property-list properties)))))
 
 (defcustom describe-char-unidata-list
-  '(name general-category decomposition old-name)
+  '(name old-name general-category decomposition)
   "List of Unicode-based character property names shown by `describe-char'."
   :group 'mule
   :version "23.1"
   :type '(choice (const :tag "All properties" t)
           (set
            (const :tag "Unicode Name" name)
+           (const :tag "Unicode old name" old-name)
            (const :tag "Unicode general category " general-category)
            (const :tag "Unicode canonical combining class"
                   canonical-combining-class)
@@ -196,7 +197,6 @@ otherwise."
            (const :tag "Unicode digit value" digit-value)
            (const :tag "Unicode numeric value" numeric-value)
            (const :tag "Unicode mirrored" mirrored)
-           (const :tag "Unicode old name" old-name)
            (const :tag "Unicode ISO 10646 comment" iso-10646-comment)
            (const :tag "Unicode simple uppercase mapping" uppercase)
            (const :tag "Unicode simple lowercase mapping" lowercase)