Don't show compiled functions on symbol properties

They're often messy and rarely interesting. See cadr for an example.

1 files changed, 3 insertions, 1 deletions

diff --git a/helpful.el b/helpful.el
index a1d80c0..6ce9b25 100644
--- a/helpful.el
+++ b/helpful.el
@@ -75,7 +75,9 @@ This allows us to distinguish strings from symbols."
              (format "%s %s"
                      (propertize (symbol-name sym)
                                  'face 'font-lock-constant-face)
-                     (helpful--pretty-print val)))
+                     (if (eq (type-of val) 'compiled-function)
+                         "#<compiled-function>"
+                       (helpful--pretty-print val))))
            syms-and-vals)))
     (when lines
       (s-join "\n" lines))))