From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 24 Jun 2002 21:35:09 +0000 (+0000)
Subject: (describe-property-list): Make sure there's
X-Git-Tag: ttn-vms-21-2-B4~14463
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1a1535ae4e4c2b70721967c8142d7e294b0ce88;p=emacs.git

(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.
---

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index e75769078b0..525e06e4a37 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*"