Ensure we can find the definitions of interactively defined functions

1 files changed, 4 insertions, 4 deletions

diff --git a/helpful.el b/helpful.el
index 26bed3a..ba10567 100644
--- a/helpful.el
+++ b/helpful.el
@@ -895,10 +895,10 @@ If the source code cannot be found, return the sexp used."
           (setq source (propertize source
                                    'helpful-path (buffer-file-name buf)
                                    'helpful-pos start-pos
-                                   'helpful-pos-is-start t))))
-      (when (and buf created)
-        (kill-buffer buf))
-      (throw 'source source))
+                                   'helpful-pos-is-start t)))
+        (when (and buf created)
+          (kill-buffer buf))
+        (throw 'source source)))
 
     (when callable-p
       ;; Could not find source -- probably defined interactively, or via