/[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.4.2.9 by miles, Tue Jul 6 09:14:17 2004 UTC revision 1.4.2.10 by miles, Tue Jul 6 09:31:47 2004 UTC
# Line 111  into widget buttons that call `describe- Line 111  into widget buttons that call `describe-
111                           (setq key (pop properties)                           (setq key (pop properties)
112                                 val (pop properties)                                 val (pop properties)
113                                 len 0)                                 len 0)
114                           (unless (or (memq key '(category face font-lock-face))                           (unless (or (memq key '(category face font-lock-face
115                                                     syntax-table))
116                                       (widgetp val))                                       (widgetp val))
117                             (setq val (pp-to-string val)                             (setq val (pp-to-string val)
118                                   len (length val)))                                   len (length val)))
# Line 134  into widget buttons that call `describe- Line 135  into widget buttons that call `describe-
135                              :notify `(lambda (&rest ignore)                              :notify `(lambda (&rest ignore)
136                                         (describe-face ',value))                                         (describe-face ',value))
137                              (format "%S" value)))                              (format "%S" value)))
138              ((widgetp value)              ((eq key 'syntax-table)
139                 (widget-create 'push-button
140                                :tag "show"
141                                :action (lambda (widget &optional event)
142                                          (with-output-to-temp-buffer
143                                              "*Pp Eval Output*"
144                                            (pp (widget-get widget :value))))
145                                value))
146                ((widgetp value)
147               (describe-text-widget value))               (describe-text-widget value))
148              (t              (t
149               (widget-insert value))))               (widget-insert value))))
# Line 476  as well as widgets, buttons, overlays, a Line 485  as well as widgets, buttons, overlays, a
485                            (encode-char char 'ucs))))                            (encode-char char 'ucs))))
486      (setq item-list      (setq item-list
487            `(("character"            `(("character"
488              ,(format "%s (0%o, %d, 0x%x%s)"              ,(format "%s (0%o, %d, 0x%x%s)"
489                       (apply 'propertize (if (not multibyte-p)                       (apply 'propertize (if (not multibyte-p)
490                                              (single-key-description char)                                              (single-key-description char)
491                                            (if (< char 128)                                            (if (< char 128)
# Line 598  as well as widgets, buttons, overlays, a Line 607  as well as widgets, buttons, overlays, a
607    
608          (save-excursion          (save-excursion
609            (goto-char (point-min))            (goto-char (point-min))
610            (search-forward "character: ")            (re-search-forward "character:[ \t\n]+")
611            (setq pos (point)))            (setq pos (point)))
612          (if overlays          (if overlays
613              (mapc #'(lambda (props)              (mapc #'(lambda (props)

Legend:
Removed from v.1.4.2.9  
changed lines
  Added in v.1.4.2.10

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