Show preceding comments and autoload cookies in source0.10

1 files changed, 6 insertions, 1 deletions

diff --git a/helpful.el b/helpful.el
index feb4bce..aaa7ed4 100644
--- a/helpful.el
+++ b/helpful.el
@@ -950,7 +950,12 @@ If the source code cannot be found, return the sexp used."
           (save-excursion
             (save-restriction
               (goto-char start-pos)
-              (narrow-to-defun)
+              (narrow-to-defun t)
+
+              ;; If there was a preceding comment, START-POS will be
+              ;; after that comment. Move the position to include that comment.
+              (setq start-pos (point-min))
+
               (setq source (buffer-substring-no-properties (point-min) (point-max))))))
         (setq source (s-trim-right source))
         (when (and source (buffer-file-name buf))