Mercurial > emacs
changeset 93054:ca8b9e092766
(describe-char-unidata-list): Allow specifying just all properties.
(describe-char): Handle that new value.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 19 Mar 2008 01:41:53 +0000 |
| parents | f62cf4851fe9 |
| children | e1ae2150f28e |
| files | lisp/ChangeLog lisp/descr-text.el |
| diffstat | 2 files changed, 30 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Mar 19 01:05:50 2008 +0000 +++ b/lisp/ChangeLog Wed Mar 19 01:41:53 2008 +0000 @@ -1,5 +1,9 @@ 2008-03-19 Stefan Monnier <monnier@iro.umontreal.ca> + * descr-text.el (describe-char-unidata-list): Allow specifying + just all properties. + (describe-char): Handle that new value. + * emulation/cua-base.el (cua-paste): Signal an error in read-only buf. 2008-03-18 Tassilo Horn <tassilo@member.fsf.org>
--- a/lisp/descr-text.el Wed Mar 19 01:05:50 2008 +0000 +++ b/lisp/descr-text.el Wed Mar 19 01:41:53 2008 +0000 @@ -187,22 +187,23 @@ "List of Unicode-based character property names shown by `describe-char'." :group 'mule :version "23.1" - :type '(set - (const :tag "Unicode Name" name) - (const :tag "Unicode general category " general-category) - (const :tag "Unicode canonical combining class" - canonical-combining-class) - (const :tag "Unicode bidi class" bidi-class) - (const :tag "Unicode decomposition mapping" decomposition) - (const :tag "Unicode decimal digit value" decimal-digit-value) - (const :tag "Unicode digit value" digit-value) - (const :tag "Unicode numeric value" numeric-value) - (const :tag "Unicode mirrored" mirrored) - (const :tag "Unicode old name" old-name) - (const :tag "Unicode ISO 10646 comment" iso-10646-comment) - (const :tag "Unicode simple uppercase mapping" uppercase) - (const :tag "Unicode simple lowercase mapping" lowercase) - (const :tag "Unicode simple titlecase mapping" titlecase))) + :type '(choice (const :tag "All properties" t) + (set + (const :tag "Unicode Name" name) + (const :tag "Unicode general category " general-category) + (const :tag "Unicode canonical combining class" + canonical-combining-class) + (const :tag "Unicode bidi class" bidi-class) + (const :tag "Unicode decomposition mapping" decomposition) + (const :tag "Unicode decimal digit value" decimal-digit-value) + (const :tag "Unicode digit value" digit-value) + (const :tag "Unicode numeric value" numeric-value) + (const :tag "Unicode mirrored" mirrored) + (const :tag "Unicode old name" old-name) + (const :tag "Unicode ISO 10646 comment" iso-10646-comment) + (const :tag "Unicode simple uppercase mapping" uppercase) + (const :tag "Unicode simple lowercase mapping" lowercase) + (const :tag "Unicode simple titlecase mapping" titlecase)))) (defcustom describe-char-unicodedata-file nil "Location of Unicode data file. @@ -628,23 +629,25 @@ (insert "\nSee the variable `reference-point-alist' for " "the meaning of the rule.\n"))) - (if (not describe-char-unidata-list) - (insert "\nCharacter code properties are not shown: ") - (insert "\nCharacter code properties: ")) + (insert (if (not describe-char-unidata-list) + "\nCharacter code properties are not shown: " + "\nCharacter code properties: ")) (insert-text-button "customize what to show" 'action (lambda (&rest ignore) (customize-variable 'describe-char-unidata-list))) (insert "\n") - (dolist (elt describe-char-unidata-list) + (dolist (elt (if (eq describe-char-unidata-list t) + (mapcar 'car char-code-property-alist) + describe-char-unidata-list)) (let ((val (get-char-code-property char elt)) description) (when val (setq description (char-code-property-description elt val)) - (if description - (insert (format " %s: %s (%s)\n" elt val description)) - (insert (format " %s: %s\n" elt val)))))) + (insert (if description + (format " %s: %s (%s)\n" elt val description) + (format " %s: %s\n" elt val)))))) (if text-props-desc (insert text-props-desc)) (setq help-xref-stack-item (list 'help-insert-string (buffer-string)))