[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/descr-text.el
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/descr-text.el |
Date: |
Wed, 28 May 2003 17:07:24 -0400 |
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)