helpful

commit 1d8a177c4630799a112cfd0d8edae475f18e67a1
parent bfe0aba8939fa60c2542f3722453ffe7805e1532
Author: Wilfred Hughes <me@wilfred.me.uk>
Date:   Sun, 28 May 2017 20:27:59 +0100

Ensure we only offer symbols that have function definitions

Diffstat:
M
helpful.el
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/helpful.el b/helpful.el
@@ -334,7 +334,7 @@ For example, \"(some-func FOO &optional BAR)\"."
 (defun helpful--read-fn-symbol ()
   (let ((sym-here (symbol-at-point)))
     (read (completing-read "Symbol: " obarray
-                           nil nil nil nil
+                           #'fboundp nil nil nil
                            (when (fboundp sym-here)
                              (symbol-name sym-here))))))