From ab93fa3e23ce3bc58ec1ffaaede3efc4faa7721f Mon Sep 17 00:00:00 2001 From: Wilfred Hughes Date: Sun, 27 Aug 2017 13:24:57 +0100 Subject: Return a definition path even if we don't have a position --- helpful.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/helpful.el b/helpful.el index 4cc71a8..a74965d 100644 --- 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." -- cgit v1.0