[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el

[Richard M. Stallman]

Index: emacs/lisp/international/mule-diag.el
diff -c emacs/lisp/international/mule-diag.el:1.65 
emacs/lisp/international/mule-diag.el:1.66
*** emacs/lisp/international/mule-diag.el:1.65  Thu Dec 20 16:32:26 2001
--- emacs/lisp/international/mule-diag.el       Thu Dec 27 22:01:30 2001
***************
*** 528,533 ****
--- 528,534 ----
        (error "No character at point"))
    (let* ((char (char-after pos))
         (charset (char-charset char))
+        (props (text-properties-at pos))
         (composition (find-composition (point) nil nil t))
         (composed (if composition (buffer-substring (car composition)
                                                     (nth 1 composition))))
***************
*** 620,625 ****
--- 621,631 ----
                               " ")
                    ").\n"
                    "See the variable `reference-point-alist' for the meaning 
of the rule.\n")))
+       (if props
+           (insert "\nText properties\n"))
+       (while props
+         (insert (format "  %s: %s" (car props) (cadr props)))
+         (setq props (cddr props)))
        ))))