(describe-char): When specifying all properties,

list them in the right order.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1f2e53eb233f1e34ced6563dc699c826c484ee2e..ad1ff4a6882ed0d943e84ca676237444b077113e 100644 (file)
--- 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 d965e66578d1e85fa3792d43440eb9f0ce6cc33c..c3b249f90728e1921d21d481807fd8252efb141f 100644 (file)
--- 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)