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

[Andreas Schwab]

Index: emacs/lisp/descr-text.el
diff -c emacs/lisp/descr-text.el:1.12 emacs/lisp/descr-text.el:1.13
*** emacs/lisp/descr-text.el:1.12       Wed May 28 07:14:07 2003
--- emacs/lisp/descr-text.el    Wed May 28 17:07:24 2003
***************
*** 462,468 ****
                            (char-to-string char))
                          char char char))))
  
!       (if (or (< (char-after) 256)
              (memq 'mule-utf-8 (find-coding-systems-region pos (1+ pos)))
              (get-char-property pos 'untranslated-utf-8))
          (setq unicode (or (get-char-property pos 'untranslated-utf-8)
--- 462,468 ----
                            (char-to-string char))
                          char char char))))
  
!       (if (or (< char 256)
              (memq 'mule-utf-8 (find-coding-systems-region pos (1+ pos)))
              (get-char-property pos 'untranslated-utf-8))
          (setq unicode (or (get-char-property pos 'untranslated-utf-8)
***************
*** 474,480 ****
                                               (char-to-string char))
                        char char char
                        (if unicode
!                           (format ", U+%04X" (encode-char char 'ucs))
                          "")))
              ("charset"
               ,(symbol-name charset)
--- 474,480 ----
                                               (char-to-string char))
                        char char char
                        (if unicode
!                           (format ", U+%04X" unicode)
                          "")))
              ("charset"
               ,(symbol-name charset)