[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: |
Juri Linkov |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/descr-text.el |
Date: |
Sun, 20 Nov 2005 02:43:44 -0500 |
Index: emacs/lisp/descr-text.el
diff -c emacs/lisp/descr-text.el:1.40 emacs/lisp/descr-text.el:1.41
*** emacs/lisp/descr-text.el:1.40 Fri Sep 9 01:10:41 2005
--- emacs/lisp/descr-text.el Sun Nov 20 07:43:44 2005
***************
*** 467,473 ****
(encode-char char 'ucs))))
(setq item-list
`(("character"
! ,(format "%s (0%o, %d, 0x%x%s)"
(apply 'propertize (if (not multibyte-p)
(single-key-description char)
(if (< char 128)
--- 467,473 ----
(encode-char char 'ucs))))
(setq item-list
`(("character"
! ,(format "%s (%d, #o%o, #x%x%s)"
(apply 'propertize (if (not multibyte-p)
(single-key-description char)
(if (< char 128)
***************
*** 510,516 ****
,@(let ((category-set (char-category-set char)))
(if (not category-set)
'("-- none --")
! (mapcar #'(lambda (x) (format "%c:%s "
x (category-docstring x)))
(category-set-mnemonics category-set)))))
,@(let ((props (aref char-code-property-table char))
--- 510,516 ----
,@(let ((category-set (char-category-set char)))
(if (not category-set)
'("-- none --")
! (mapcar #'(lambda (x) (format "%c:%s"
x (category-docstring x)))
(category-set-mnemonics category-set)))))
,@(let ((props (aref char-code-property-table char))
***************
*** 583,589 ****
(if display
(concat
"by this font (glyph code)\n"
! (format " %s (0x%02X)"
(car display) (cdr display)))
"no font available")
(if display
--- 583,589 ----
(if display
(concat
"by this font (glyph code)\n"
! (format " %s (#x%02X)"
(car display) (cdr display)))
"no font available")
(if display
***************
*** 657,663 ****
(insert (logand (car (aref disp-vector i)) #x7ffff) ?:
(propertize " " 'display '(space :align-to 5))
(if (cdr (aref disp-vector i))
! (format "%s (0x%02X)" (cadr (aref disp-vector i))
(cddr (aref disp-vector i)))
"-- no font --")
"\n")
--- 657,663 ----
(insert (logand (car (aref disp-vector i)) #x7ffff) ?:
(propertize " " 'display '(space :align-to 5))
(if (cdr (aref disp-vector i))
! (format "%s (#x%02X)" (cadr (aref disp-vector i))
(cddr (aref disp-vector i)))
"-- no font --")
"\n")
***************
*** 708,714 ****
(insert "\n " (car elt) ?:
(propertize " " 'display '(space :align-to 5))
(if (cdr elt)
! (format "%s (0x%02X)" (cadr elt) (cddr elt))
"-- no font --"))))
(insert "these terminal codes:")
(dolist (elt component-chars)
--- 708,714 ----
(insert "\n " (car elt) ?:
(propertize " " 'display '(space :align-to 5))
(if (cdr elt)
! (format "%s (#x%02X)" (cadr elt) (cddr elt))
"-- no font --"))))
(insert "these terminal codes:")
(dolist (elt component-chars)
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el,
Juri Linkov <=