Mark new variable buffers as opened

Fixes #101

3 files changed, 13 insertions, 1 deletions

diff --git a/CHANGELOG.md b/CHANGELOG.md
index e03b9cd..7646b87 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,7 @@
 # v0.9
 
-No changes yet.
+Fixed an issue when looking at variable docs where we would visit the
+definition buffer without the user requesting it.
 
 # v0.8
 
diff --git a/helpful.el b/helpful.el
index 04095ec..632a41d 100644
--- a/helpful.el
+++ b/helpful.el
@@ -996,6 +996,8 @@ buffer."
       (condition-case _err
           (-let [(sym-buf . sym-pos) (find-definition-noselect sym 'defvar)]
             (setq buf sym-buf)
+            (unless (-contains-p initial-buffers buf)
+              (setq opened t))
             (setq pos sym-pos))
         (search-failed nil)
         ;; If your current Emacs instance doesn't match the source
diff --git a/test/unit-test.el b/test/unit-test.el
index 8043ff1..2a42c10 100644
--- a/test/unit-test.el
+++ b/test/unit-test.el
@@ -221,6 +221,15 @@ symbol (not a form)."
 variables defined without `defvar'."
   (helpful--definition 'helpful-var-without-defvar nil))
 
+(ert-deftest helpful--definition-buffer-opened ()
+  "Ensure we mark buffers as opened for variables."
+  (require 'python)
+  ;; This test will fail if you already have python.el.gz open in your
+  ;; Emacs instance.
+  (-let [(buf pos opened) (helpful--definition 'python-indent-offset nil)]
+    (should (bufferp buf))
+    (should opened)))
+
 (ert-deftest helpful--definition-edebug-fn ()
   "Ensure we use the position information set by edebug, if present."
   ;; Test with both edebug enabled and disabled. The edebug property