Mercurial > emacs

comparison lisp/descr-text.el @ 45700:a54155344566

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(toplevel): Provide `descr-text'.
author Colin Walters <walters@gnu.org>
date Sat, 08 Jun 2002 22:43:33 +0000
parents 234b16d90545
children 97041c98624e
comparison
equal deleted inserted replaced
45699:5204b7681bdc 45700:a54155344566
89 :action (lambda (widget &optional event) 89 :action (lambda (widget &optional event)
90 (with-output-to-temp-buffer 90 (with-output-to-temp-buffer
91 "*Pp Eval Output*" 91 "*Pp Eval Output*"
92 (princ (widget-get widget :value)))) 92 (princ (widget-get widget :value))))
93 pp)))) 93 pp))))
94
95 94
96 (defun describe-text-properties (properties) 95 (defun describe-text-properties (properties)
97 "Insert a description of PROPERTIES in the current buffer. 96 "Insert a description of PROPERTIES in the current buffer.
98 PROPERTIES should be a list of overlay or text properties. 97 PROPERTIES should be a list of overlay or text properties.
99 The `category' property is made into a widget button that call 98 The `category' property is made into a widget button that call
199 (widget-insert "There are text properties here:\n") 198 (widget-insert "There are text properties here:\n")
200 (describe-text-properties properties)) 199 (describe-text-properties properties))
201 (describe-text-mode) 200 (describe-text-mode)
202 (goto-char (point-min))))))) 201 (goto-char (point-min)))))))
203 202
203 (provide 'descr-text)
204
204 ;;; descr-text.el ends here 205 ;;; descr-text.el ends here