659 |
").\n" |
").\n" |
660 |
"See the variable `reference-point-alist' for " |
"See the variable `reference-point-alist' for " |
661 |
"the meaning of the rule.\n"))) |
"the meaning of the rule.\n"))) |
662 |
(if props |
(when props |
663 |
(insert "\nText properties\n")) |
(insert "\nText properties\n")) |
664 |
(while props |
;; List the text properties, sorted by the size of the printed |
665 |
(insert (format " %s: %s" (car props) (cadr props))) |
;; representation of their value. This makes it easier to |
666 |
(setq props (cddr props))) |
;; read. |
667 |
|
(dolist (elt (sort (let ((ret nil)) |
668 |
|
(while props |
669 |
|
(push (cons (pop props) |
670 |
|
(prin1-to-string (pop props))) |
671 |
|
ret)) |
672 |
|
ret) |
673 |
|
(lambda (a b) |
674 |
|
(< (length (cdr a)) |
675 |
|
(length (cdr b)))))) |
676 |
|
(insert (format " %s: %s\n" (car elt) (cdr elt)))) |
677 |
)))) |
)))) |
678 |
|
|
679 |
|
|