(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.

1 files changed, 13 insertions, 4 deletions

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 75ce294dad6..c4758a081ce 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -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)