helpful

commit 73cec38b127876a850269a9dd5f59bcaeaed2c26
parent 1dda8077ba93ccada164bdc5e9269d6bc1245673
Author: Nick Drozd <nicholasdrozd@gmail.com>
Date:   Mon, 23 Jul 2018 10:54:54 -0500

Fix helpful--show-callees to handle anonymous functions

Using `symbol-name` in a format string is unnecessary, since `format`
will already convert symbols to strings. Cutting it allows for
handling other types.

Diffstat:
M
helpful.el
 | 
3
+--
M
test/unit-test.el
 | 
5
+----

2 files changed, 2 insertions(+), 6 deletions(-)
diff --git a/helpful.el b/helpful.el
@@ -610,8 +610,7 @@ overrides that to include previously opened buffers."
       (erase-buffer)
       (insert
        ;; TODO: Macros used, special forms used, global vars used.
-       (format "Functions called by %s:\n\n"
-               (symbol-name sym)))
+       (format "Functions called by %s:\n\n" sym))
       (dolist (sym syms)
         (insert "  "
                 (helpful--button
diff --git a/test/unit-test.el b/test/unit-test.el
@@ -716,10 +716,7 @@ find the source code."
                    '(defun whatever () (something) (test 5)))))
       (insert button)
       (goto-char (point-min))
-      (push-button))))
-
-(ert-deftest helpful--callees-button--smoke-fail ()
-  :expected-result :failed
+      (push-button)))
   (with-temp-buffer
     (let ((button (helpful--make-callees-button
                    '(lambda () (interactive) (other-window -1))