diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-13 16:07:55 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-13 16:07:55 +0000 |
| commit | 6a5cd2255b409b956a2582e062b39131639a9564 (patch) | |
| tree | 07c3ff983faa1f97827ee42c08320611f53dbb7f | |
| parent | 71e8f1455f40e19bae24e93c308ab0696535c41e (diff) | |
Fix window managing
| -rw-r--r-- | sx-question-list.el | 3 | ||||
| -rw-r--r-- | sx-question-mode.el | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/sx-question-list.el b/sx-question-list.el index ef5d3f5..8c558e6 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -279,7 +279,8 @@ focus the relevant window." (when (sx-question--read-p data) (cl-decf sx-question-list--unread-count) (sx-question--mark-read data)) - (unless (window-live-p sx-question-mode--window) + (unless (and (window-live-p sx-question-mode--window) + (null (equal sx-question-mode--window (selected-window)))) (setq sx-question-mode--window (condition-case er (split-window-below sx-question-list-height) diff --git a/sx-question-mode.el b/sx-question-mode.el index 199e082..686d357 100644 --- a/sx-question-mode.el +++ b/sx-question-mode.el @@ -184,7 +184,8 @@ QUESTION must be a data structure returned by `json-read'." (sx-assoc-let question (mapc #'sx-question-mode--print-section .answers)) (goto-char (point-min)) - (sx-question-mode-next-section)) + (with-selected-window sx-question-mode--window + (sx-question-mode-next-section))) (defun sx-question-mode--print-section (data) "Print a section corresponding to DATA. |