/[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.41 by jurta, Sun Nov 20 07:43:44 2005 UTC revision 1.42 by schwab, Sun Nov 20 15:25:35 2005 UTC
# Line 458  as well as widgets, buttons, overlays, a Line 458  as well as widgets, buttons, overlays, a
458           (multibyte-p enable-multibyte-characters)           (multibyte-p enable-multibyte-characters)
459           (overlays (mapcar #'(lambda (o) (overlay-properties o))           (overlays (mapcar #'(lambda (o) (overlay-properties o))
460                             (overlays-at pos)))                             (overlays-at pos)))
461             (char-description (if (not multibyte-p)
462                                   (single-key-description char)
463                                 (if (< char 128)
464                                     (single-key-description char)
465                                   (string-to-multibyte
466                                    (char-to-string char)))))
467           item-list max-width unicode)           item-list max-width unicode)
468    
469      (if (or (< char 256)      (if (or (< char 256)
# Line 468  as well as widgets, buttons, overlays, a Line 474  as well as widgets, buttons, overlays, a
474      (setq item-list      (setq item-list
475            `(("character"            `(("character"
476              ,(format "%s (%d, #o%o, #x%x%s)"              ,(format "%s (%d, #o%o, #x%x%s)"
477                       (apply 'propertize (if (not multibyte-p)                       (apply 'propertize char-description
                                             (single-key-description char)  
                                           (if (< char 128)  
                                               (single-key-description char)  
                                             (string-to-multibyte  
                                              (char-to-string char))))  
478                              (text-properties-at pos))                              (text-properties-at pos))
479                       char char char                       char char char
480                       (if unicode                       (if unicode
# Line 639  as well as widgets, buttons, overlays, a Line 640  as well as widgets, buttons, overlays, a
640            (goto-char (point-min))            (goto-char (point-min))
641            (re-search-forward "character:[ \t\n]+")            (re-search-forward "character:[ \t\n]+")
642            (setq pos (point)))            (setq pos (point)))
643          (if overlays          (let ((end (+ pos (length char-description))))
644              (mapc #'(lambda (props)            (if overlays
645                        (let ((o (make-overlay pos (1+ pos))))                (mapc #'(lambda (props)
646                          (while props                          (let ((o (make-overlay pos end)))
647                            (overlay-put o (car props) (nth 1 props))                            (while props
648                            (setq props (cddr props)))))                              (overlay-put o (car props) (nth 1 props))
649                    overlays))                              (setq props (cddr props)))))
650                        overlays)))
651    
652          (when disp-vector          (when disp-vector
653            (insert            (insert

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

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