Mercurial > emacs
comparison lisp/descr-text.el @ 93058:273ed23a0a68
(describe-char): When specifying all properties,
list them in the right order.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 19 Mar 2008 02:10:26 +0000 |
| parents | ca8b9e092766 |
| children | 587f5f26f25d |
comparison
equal
deleted
inserted
replaced
| 93057:6ad7f6e364ef | 93058:273ed23a0a68 |
|---|---|
| 515 ,(symbol-name face) | 515 ,(symbol-name face) |
| 516 'type 'help-face 'help-args '(,face)))))) | 516 'type 'help-face 'help-args '(,face)))))) |
| 517 ,@(let ((unicodedata (describe-char-unicode-data char))) | 517 ,@(let ((unicodedata (describe-char-unicode-data char))) |
| 518 (if unicodedata | 518 (if unicodedata |
| 519 (cons (list "Unicode data" " ") unicodedata))))) | 519 (cons (list "Unicode data" " ") unicodedata))))) |
| 520 (setq max-width (apply #'max (mapcar #'(lambda (x) | 520 (setq max-width (apply #'max (mapcar #'(lambda (x) |
| 521 (if (cadr x) (length (car x)) 0)) | 521 (if (cadr x) (length (car x)) 0)) |
| 522 item-list))) | 522 item-list))) |
| 523 (help-setup-xref nil (interactive-p)) | 523 (help-setup-xref nil (interactive-p)) |
| 524 (with-help-window (help-buffer) | 524 (with-help-window (help-buffer) |
| 525 (with-current-buffer standard-output | 525 (with-current-buffer standard-output |
| 637 'action (lambda (&rest ignore) | 637 'action (lambda (&rest ignore) |
| 638 (customize-variable | 638 (customize-variable |
| 639 'describe-char-unidata-list))) | 639 'describe-char-unidata-list))) |
| 640 (insert "\n") | 640 (insert "\n") |
| 641 (dolist (elt (if (eq describe-char-unidata-list t) | 641 (dolist (elt (if (eq describe-char-unidata-list t) |
| 642 (mapcar 'car char-code-property-alist) | 642 (nreverse (mapcar 'car char-code-property-alist)) |
| 643 describe-char-unidata-list)) | 643 describe-char-unidata-list)) |
| 644 (let ((val (get-char-code-property char elt)) | 644 (let ((val (get-char-code-property char elt)) |
| 645 description) | 645 description) |
| 646 (when val | 646 (when val |
| 647 (setq description (char-code-property-description elt val)) | 647 (setq description (char-code-property-description elt val)) |