Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

(describe-property-list): Add [show] button for

Browse source 
`syntax-table' property with action to pp to a separate buffer.
(describe-char): Replace search-forward by re-search-forward with
whitespace regexp after "character:" to not fail in too narrow windows.
This commit is contained in:
Juri Linkov 2004-05-23 20:59:28 +00:00
parent c58bb024cb
commit f13cc97d68
1 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/descr-text.el
View file

@ -111,7 +111,8 @@ into widget buttons that call `describe-text-category' or
(setq key (pop properties)
val (pop properties)
len 0)
(unless (or (memq key '(category face font-lock-face))
(unless (or (memq key '(category face font-lock-face
syntax-table))
(widgetp val))
(setq val (pp-to-string val)
len (length val)))
@ -134,7 +135,15 @@ into widget buttons that call `describe-text-category' or
:notify `(lambda (&rest ignore)
(describe-face ',value))
(format "%S" value)))
((widgetp value)
((eq key 'syntax-table)
(widget-create 'push-button
:tag "show"
:action (lambda (widget &optional event)
(with-output-to-temp-buffer
"*Pp Eval Output*"
(pp (widget-get widget :value))))
value))
((widgetp value)
(describe-text-widget value))
(t
(widget-insert value))))
@ -476,7 +485,7 @@ as well as widgets, buttons, overlays, and text properties."
(encode-char char 'ucs))))
(setq item-list
`(("character"
,(format "%s (0%o, %d, 0x%x%s)"
,(format "%s (0%o, %d, 0x%x%s)"
(apply 'propertize (if (not multibyte-p)
(single-key-description char)
(if (< char 128)
@ -598,7 +607,7 @@ as well as widgets, buttons, overlays, and text properties."
(save-excursion
(goto-char (point-min))
(search-forward "character: ")
(re-search-forward "character:[ \t\n]+")
(setq pos (point)))
(if overlays
(mapc #'(lambda (props)