Mercurial > emacs
changeset 55754:da7a694d2097
(describe-property-list): Add [show] button for
`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.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sun, 23 May 2004 20:59:28 +0000 |
| parents | a1d8c94b66c0 |
| children | 969064cce54e |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 13 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/descr-text.el Sun May 23 20:57:50 2004 +0000 +++ b/lisp/descr-text.el Sun May 23 20:59:28 2004 +0000 @@ -111,7 +111,8 @@ (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 @@ :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 @@ (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 @@ (save-excursion (goto-char (point-min)) - (search-forward "character: ") + (re-search-forward "character:[ \t\n]+") (setq pos (point))) (if overlays (mapc #'(lambda (props)