emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]