From 95eede5c74453fccfad6eda52a440f62f166b350 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 19 Mar 2008 02:13:03 +0000 Subject: [PATCH] (describe-char): When specifying all properties, list them in the right order. --- lisp/ChangeLog | 5 +++++ lisp/descr-text.el | 4 ++-- 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 + + * 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 * 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) -- 2.39.2