Fix displaying of questions

1 files changed, 6 insertions, 3 deletions

diff --git a/gnosis.el b/gnosis.el
index 6e3af1a..e0d05d4 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -77,9 +77,12 @@ Example:
 (defun gnosis--display-question (id)
   "Display main row for question ID."
   (let ((question (gnosis-get 'main 'notes `(= id ,id))))
-    (erase-buffer)
-    (insert question 1)
-    (sit-for 0.5)))
+    (with-current-buffer
+	(switch-to-buffer
+	 (get-buffer-create "*gnosis*"))
+      (erase-buffer)
+      (insert question)
+      (sit-for 0.5))))
 
 (defun gnosis--ask-input (prompt)
   "PROMPT user for input until `q' is given.