helpful

commit 3068b0229383bf18a88cd0b59694d611077cd58d
parent d45be106c1a694503ec1a6d720614d7979594cb4
Author: Wilfred Hughes <me@wilfred.me.uk>
Date:   Sun, 15 Oct 2017 13:28:32 +0100

Require a match when choosing a symbol

The code is not defensive against arbitrary symbols that do not exist.

Diffstat:
M
helpful.el
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/helpful.el b/helpful.el
@@ -738,7 +738,7 @@ For example, \"(some-func FOO &optional BAR)\"."
 (defun helpful--read-symbol (prompt predicate)
   (let ((sym-here (symbol-at-point)))
     (read (completing-read prompt obarray
-                           predicate nil nil nil
+                           predicate t nil nil
                            (when (funcall predicate sym-here)
                              (symbol-name sym-here))))))