Mercurial > emacs
changeset 45996:d57daf0a986a
(describe-property-list): Make sure there's
a space between the property name and its value.
(describe-text-properties): Don't kill a pre-existing buffer.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 24 Jun 2002 21:35:09 +0000 |
| parents | c3e620e7c70b |
| children | 9ee4a7e22180 |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/descr-text.el Mon Jun 24 21:33:18 2002 +0000 +++ b/lisp/descr-text.el Mon Jun 24 21:35:09 2002 +0000 @@ -95,7 +95,7 @@ (defun describe-property-list (properties) "Insert a description of PROPERTIES in the current buffer. PROPERTIES should be a list of overlay or text properties. -The `category' property is made into a widget button that call +The `category' property is made into a widget button that call `describe-text-category' when pushed." ;; Sort the properties by the size of their value. (dolist (elt (sort (let ((ret nil) @@ -117,10 +117,10 @@ (nth 2 b))))) (let ((key (nth 0 elt)) (value (nth 1 elt))) - (widget-insert (propertize (format " %-20s" key) + (widget-insert (propertize (format " %-20s " key) 'font-lock-face 'italic)) (cond ((eq key 'category) - (widget-create 'link + (widget-create 'link :notify `(lambda (&rest ignore) (describe-text-category ',value)) (format "%S" value))) @@ -161,8 +161,6 @@ (describe-text-properties-1 pos output-buffer) (if (not (or (text-properties-at pos) (overlays-at pos))) (message "This is plain text.") - (when (get-buffer "*Text Description*") - (kill-buffer "*Text Description*")) (let ((buffer (current-buffer))) (save-excursion (with-output-to-temp-buffer "*Text Description*"