procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(describe-property-list): Make sure there's

Browse source 
a space between the property name and its value.
(describe-text-properties): Don't kill a pre-existing buffer.
This commit is contained in:
Stefan Monnier 2002-06-24 21:35:09 +00:00
parent 9756ea0f83
commit c1a1535ae4
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/descr-text.el
View file

@ -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*"