helpful

commit ab93fa3e23ce3bc58ec1ffaaede3efc4faa7721f
parent b59ce5c64010b85a32e293c12bd7bdff6874d720
Author: Wilfred Hughes <me@wilfred.me.uk>
Date:   Sun, 27 Aug 2017 13:24:57 +0100

Return a definition path even if we don't have a position

Diffstat:
M
helpful.el
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/helpful.el b/helpful.el
@@ -323,8 +323,9 @@ If the source code cannot be found, return the sexp used."
 
 (defun helpful--source-path (sym callable-p)
   "Return the path where SYM is defined."
-  (-when-let ((buf . pos) (helpful--definition sym callable-p))
-    (buffer-file-name buf)))
+  (-let [(buf . _) (helpful--definition sym callable-p)]
+    (when buf
+      (buffer-file-name buf))))
 
 (defun helpful--source-pos (sym callable-p)
   "Return the file position where SYM is defined."