Commit 95eede5c authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(describe-char): When specifying all properties,

list them in the right order.
parent 00fc37d1
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment