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