/[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.40 by rms, Fri Sep 9 01:10:41 2005 UTC revision 1.41 by jurta, Sun Nov 20 07:43:44 2005 UTC
# Line 467  as well as widgets, buttons, overlays, a Line 467  as well as widgets, buttons, overlays, a
467                            (encode-char char 'ucs))))                            (encode-char char 'ucs))))
468      (setq item-list      (setq item-list
469            `(("character"            `(("character"
470              ,(format "%s (0%o, %d, 0x%x%s)"              ,(format "%s (%d, #o%o, #x%x%s)"
471                       (apply 'propertize (if (not multibyte-p)                       (apply 'propertize (if (not multibyte-p)
472                                              (single-key-description char)                                              (single-key-description char)
473                                            (if (< char 128)                                            (if (< char 128)
# Line 510  as well as widgets, buttons, overlays, a Line 510  as well as widgets, buttons, overlays, a
510               ,@(let ((category-set (char-category-set char)))               ,@(let ((category-set (char-category-set char)))
511                   (if (not category-set)                   (if (not category-set)
512                       '("-- none --")                       '("-- none --")
513                     (mapcar #'(lambda (x) (format "%c:%s  "                     (mapcar #'(lambda (x) (format "%c:%s"
514                                                   x (category-docstring x)))                                                   x (category-docstring x)))
515                             (category-set-mnemonics category-set)))))                             (category-set-mnemonics category-set)))))
516              ,@(let ((props (aref char-code-property-table char))              ,@(let ((props (aref char-code-property-table char))
# Line 583  as well as widgets, buttons, overlays, a Line 583  as well as widgets, buttons, overlays, a
583                        (if display                        (if display
584                            (concat                            (concat
585                             "by this font (glyph code)\n"                             "by this font (glyph code)\n"
586                             (format "     %s (0x%02X)"                             (format "     %s (#x%02X)"
587                                     (car display) (cdr display)))                                     (car display) (cdr display)))
588                          "no font available")                          "no font available")
589                      (if display                      (if display
# Line 657  as well as widgets, buttons, overlays, a Line 657  as well as widgets, buttons, overlays, a
657                    (insert (logand (car (aref disp-vector i)) #x7ffff) ?:                    (insert (logand (car (aref disp-vector i)) #x7ffff) ?:
658                            (propertize " " 'display '(space :align-to 5))                            (propertize " " 'display '(space :align-to 5))
659                            (if (cdr (aref disp-vector i))                            (if (cdr (aref disp-vector i))
660                                (format "%s (0x%02X)" (cadr (aref disp-vector i))                                (format "%s (#x%02X)" (cadr (aref disp-vector i))
661                                        (cddr (aref disp-vector i)))                                        (cddr (aref disp-vector i)))
662                              "-- no font --")                              "-- no font --")
663                            "\n")                            "\n")
# Line 708  as well as widgets, buttons, overlays, a Line 708  as well as widgets, buttons, overlays, a
708                    (insert "\n " (car elt) ?:                    (insert "\n " (car elt) ?:
709                            (propertize " " 'display '(space :align-to 5))                            (propertize " " 'display '(space :align-to 5))
710                            (if (cdr elt)                            (if (cdr elt)
711                                (format "%s (0x%02X)" (cadr elt) (cddr elt))                                (format "%s (#x%02X)" (cadr elt) (cddr elt))
712                              "-- no font --"))))                              "-- no font --"))))
713              (insert "these terminal codes:")              (insert "these terminal codes:")
714              (dolist (elt component-chars)              (dolist (elt component-chars)

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

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