(describe-char): When specifying all properties,

list them in the right order.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1f2e53eb233..ad1ff4a6882 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-19  Juanma Barranquero  <lekktu@gmail.com>
+
+        * descr-text.el (describe-char): When `describe-char-unidata-list'
+        is set to show all properties, list them in the right order.
+
 2008-03-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * international/mule.el (load-with-code-conversion): Avoid setting
diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index d965e66578d..c3b249f9072 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -517,7 +517,7 @@ as well as widgets, buttons, overlays, and text properties."
             ,@(let ((unicodedata (describe-char-unicode-data char)))
                 (if unicodedata
                     (cons (list "Unicode data" " ") unicodedata)))))
-    (setq max-width (apply #'max (mapcar #'(lambda (x) 
+    (setq max-width (apply #'max (mapcar #'(lambda (x)
                                              (if (cadr x) (length (car x)) 0))
                                          item-list)))
     (help-setup-xref nil (interactive-p))
@@ -639,7 +639,7 @@ as well as widgets, buttons, overlays, and text properties."
                     'describe-char-unidata-list)))
         (insert "\n")
         (dolist (elt (if (eq describe-char-unidata-list t)
-                         (mapcar 'car char-code-property-alist)
+                         (nreverse (mapcar 'car char-code-property-alist))
                        describe-char-unidata-list))
           (let ((val (get-char-code-property char elt))
                 description)