Commit 3253c7c6 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(describe-char-unidata-list): Allow specifying just all properties.

(describe-char): Handle that new value.
parent 3afc21a9
2008-03-19 Stefan Monnier <monnier@iro.umontreal.ca> 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. * emulation/cua-base.el (cua-paste): Signal an error in read-only buf.
   
2008-03-18 Tassilo Horn <tassilo@member.fsf.org> 2008-03-18 Tassilo Horn <tassilo@member.fsf.org>
......
...@@ -187,22 +187,23 @@ otherwise." ...@@ -187,22 +187,23 @@ otherwise."
"List of Unicode-based character property names shown by `describe-char'." "List of Unicode-based character property names shown by `describe-char'."
:group 'mule :group 'mule
:version "23.1" :version "23.1"
:type '(set :type '(choice (const :tag "All properties" t)
(const :tag "Unicode Name" name) (set
(const :tag "Unicode general category " general-category) (const :tag "Unicode Name" name)
(const :tag "Unicode canonical combining class" (const :tag "Unicode general category " general-category)
canonical-combining-class) (const :tag "Unicode canonical combining class"
(const :tag "Unicode bidi class" bidi-class) canonical-combining-class)
(const :tag "Unicode decomposition mapping" decomposition) (const :tag "Unicode bidi class" bidi-class)
(const :tag "Unicode decimal digit value" decimal-digit-value) (const :tag "Unicode decomposition mapping" decomposition)
(const :tag "Unicode digit value" digit-value) (const :tag "Unicode decimal digit value" decimal-digit-value)
(const :tag "Unicode numeric value" numeric-value) (const :tag "Unicode digit value" digit-value)
(const :tag "Unicode mirrored" mirrored) (const :tag "Unicode numeric value" numeric-value)
(const :tag "Unicode old name" old-name) (const :tag "Unicode mirrored" mirrored)
(const :tag "Unicode ISO 10646 comment" iso-10646-comment) (const :tag "Unicode old name" old-name)
(const :tag "Unicode simple uppercase mapping" uppercase) (const :tag "Unicode ISO 10646 comment" iso-10646-comment)
(const :tag "Unicode simple lowercase mapping" lowercase) (const :tag "Unicode simple uppercase mapping" uppercase)
(const :tag "Unicode simple titlecase mapping" titlecase))) (const :tag "Unicode simple lowercase mapping" lowercase)
(const :tag "Unicode simple titlecase mapping" titlecase))))
(defcustom describe-char-unicodedata-file nil (defcustom describe-char-unicodedata-file nil
"Location of Unicode data file. "Location of Unicode data file.
...@@ -628,23 +629,25 @@ as well as widgets, buttons, overlays, and text properties." ...@@ -628,23 +629,25 @@ as well as widgets, buttons, overlays, and text properties."
(insert "\nSee the variable `reference-point-alist' for " (insert "\nSee the variable `reference-point-alist' for "
"the meaning of the rule.\n"))) "the meaning of the rule.\n")))
(if (not describe-char-unidata-list) (insert (if (not describe-char-unidata-list)
(insert "\nCharacter code properties are not shown: ") "\nCharacter code properties are not shown: "
(insert "\nCharacter code properties: ")) "\nCharacter code properties: "))
(insert-text-button (insert-text-button
"customize what to show" "customize what to show"
'action (lambda (&rest ignore) 'action (lambda (&rest ignore)
(customize-variable (customize-variable
'describe-char-unidata-list))) 'describe-char-unidata-list)))
(insert "\n") (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)) (let ((val (get-char-code-property char elt))
description) description)
(when val (when val
(setq description (char-code-property-description elt val)) (setq description (char-code-property-description elt val))
(if description (insert (if description
(insert (format " %s: %s (%s)\n" elt val description)) (format " %s: %s (%s)\n" elt val description)
(insert (format " %s: %s\n" elt val)))))) (format " %s: %s\n" elt val))))))
(if text-props-desc (insert text-props-desc)) (if text-props-desc (insert text-props-desc))
(setq help-xref-stack-item (list 'help-insert-string (buffer-string))) (setq help-xref-stack-item (list 'help-insert-string (buffer-string)))
......
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