[Emacs-diffs] Changes to emacs/lisp/descr-text.el

[Stefan Monnier]

Index: emacs/lisp/descr-text.el
diff -c emacs/lisp/descr-text.el:1.5 emacs/lisp/descr-text.el:1.6
*** emacs/lisp/descr-text.el:1.5        Mon Jun 17 12:12:47 2002
--- emacs/lisp/descr-text.el    Mon Jun 24 17:35:09 2002
***************
*** 95,101 ****
  (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 
  `describe-text-category' when pushed."
    ;; Sort the properties by the size of their value.
    (dolist (elt (sort (let ((ret nil)
--- 95,101 ----
  (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
  `describe-text-category' when pushed."
    ;; Sort the properties by the size of their value.
    (dolist (elt (sort (let ((ret nil)
***************
*** 117,126 ****
                          (nth 2 b)))))
      (let ((key (nth 0 elt))
          (value (nth 1 elt)))
!       (widget-insert (propertize (format "  %-20s" key)
                                 'font-lock-face 'italic))
        (cond ((eq key 'category)
!            (widget-create 'link 
                            :notify `(lambda (&rest ignore)
                                       (describe-text-category ',value))
                            (format "%S" value)))
--- 117,126 ----
                          (nth 2 b)))))
      (let ((key (nth 0 elt))
          (value (nth 1 elt)))
!       (widget-insert (propertize (format "  %-20s " key)
                                 'font-lock-face 'italic))
        (cond ((eq key 'category)
!            (widget-create 'link
                            :notify `(lambda (&rest ignore)
                                       (describe-text-category ',value))
                            (format "%S" value)))
***************
*** 161,168 ****
        (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*"
--- 161,166 ----