From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 19 Mar 2008 02:13:03 +0000 (+0000)
Subject: (describe-char): When specifying all properties,
X-Git-Tag: emacs-pretest-23.0.90~7056
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95eede5c74453fccfad6eda52a440f62f166b350;p=emacs.git

(describe-char): When specifying all properties,
list them in the right order.
---

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)