/[emacs]/emacs/lisp/international/mule-diag.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-diag.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.65 by wl, Thu Dec 20 21:32:26 2001 UTC revision 1.66 by rms, Fri Dec 28 03:01:30 2001 UTC
# Line 528  which font is being used for displaying Line 528  which font is being used for displaying
528        (error "No character at point"))        (error "No character at point"))
529    (let* ((char (char-after pos))    (let* ((char (char-after pos))
530           (charset (char-charset char))           (charset (char-charset char))
531             (props (text-properties-at pos))
532           (composition (find-composition (point) nil nil t))           (composition (find-composition (point) nil nil t))
533           (composed (if composition (buffer-substring (car composition)           (composed (if composition (buffer-substring (car composition)
534                                                       (nth 1 composition))))                                                       (nth 1 composition))))
# Line 620  which font is being used for displaying Line 621  which font is being used for displaying
621                                 " ")                                 " ")
622                      ").\n"                      ").\n"
623                      "See the variable `reference-point-alist' for the meaning of the rule.\n")))                      "See the variable `reference-point-alist' for the meaning of the rule.\n")))
624            (if props
625                (insert "\nText properties\n"))
626            (while props
627              (insert (format "  %s: %s" (car props) (cadr props)))
628              (setq props (cddr props)))
629          ))))          ))))
630    
631    

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26