diff options
| author | Stefan Monnier <[email protected]> | 2002-06-24 21:35:09 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2002-06-24 21:35:09 +0000 |
| commit | c1a1535ae4e4c2b70721967c8142d7e294b0ce88 (patch) | |
| tree | 4fc17fe3e6727d85af7b690bd6c7d96f6ed263dc /lisp | |
| parent | 9756ea0f8312f00af981ffe6e07b763c944b097a (diff) | |
(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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/descr-text.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index e75769078b..525e06e4a3 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -95,7 +95,7 @@ if that value is non-nil." (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 @@ The `category' property is made into a widget button that call (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 @@ otherwise." (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*" |