91 |
"*Pp Eval Output*" |
"*Pp Eval Output*" |
92 |
(princ (widget-get widget :value)))) |
(princ (widget-get widget :value)))) |
93 |
pp)))) |
pp)))) |
|
|
|
94 |
|
|
95 |
(defun describe-text-properties (properties) |
(defun describe-text-properties (properties) |
96 |
"Insert a description of PROPERTIES in the current buffer. |
"Insert a description of PROPERTIES in the current buffer. |
200 |
(describe-text-mode) |
(describe-text-mode) |
201 |
(goto-char (point-min))))))) |
(goto-char (point-min))))))) |
202 |
|
|
203 |
|
(provide 'descr-text) |
204 |
|
|
205 |
;;; descr-text.el ends here |
;;; descr-text.el ends here |