From 13837a97f9b4ed2afbf1c01d9f9f66387df93d78 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 19 Dec 2023 20:19:48 +0200 Subject: Fix displaying of questions --- gnosis.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'gnosis.el') 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. -- cgit v1.2.3