mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(describe-char): When specifying all properties,

Browse Source 
list them in the right order.
This commit is contained in:
Juanma Barranquero 2008-03-19 02:13:03 +00:00
parent 00fc37d1ba
commit 95eede5c74
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

4
lisp/descr-text.el
View File

@ -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)