Mercurial > emacs

changeset 93058:273ed23a0a68

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-char): When specifying all properties, list them in the right order.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 19 Mar 2008 02:10:26 +0000
parents 6ad7f6e364ef
children 494826c5a020
files lisp/descr-text.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/descr-text.el	Wed Mar 19 01:56:48 2008 +0000
+++ b/lisp/descr-text.el	Wed Mar 19 02:10:26 2008 +0000
@@ -517,7 +517,7 @@
 	    ,@(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 @@
 		    '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)