/[emacs]/emacs/lisp/descr-text.el
ViewVC logotype

Diff of /emacs/lisp/descr-text.el

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

revision 1.12 by rms, Wed May 28 11:14:07 2003 UTC revision 1.13 by schwab, Wed May 28 21:07:24 2003 UTC
# Line 462  as well as widgets, buttons, overlays, a Line 462  as well as widgets, buttons, overlays, a
462                              (char-to-string char))                              (char-to-string char))
463                            char char char))))                            char char char))))
464    
465        (if (or (< (char-after) 256)        (if (or (< char 256)
466                (memq 'mule-utf-8 (find-coding-systems-region pos (1+ pos)))                (memq 'mule-utf-8 (find-coding-systems-region pos (1+ pos)))
467                (get-char-property pos 'untranslated-utf-8))                (get-char-property pos 'untranslated-utf-8))
468            (setq unicode (or (get-char-property pos 'untranslated-utf-8)            (setq unicode (or (get-char-property pos 'untranslated-utf-8)
# Line 474  as well as widgets, buttons, overlays, a Line 474  as well as widgets, buttons, overlays, a
474                                                 (char-to-string char))                                                 (char-to-string char))
475                          char char char                          char char char
476                          (if unicode                          (if unicode
477                              (format ", U+%04X" (encode-char char 'ucs))                              (format ", U+%04X" unicode)
478                            "")))                            "")))
479                ("charset"                ("charset"
480                 ,(symbol-name charset)                 ,(symbol-name charset)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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