diff options
| -rw-r--r-- | sx-question-list.el | 2 | ||||
| -rw-r--r-- | sx-question-mode.el | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/sx-question-list.el b/sx-question-list.el index ea91045..32451ed 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -525,7 +525,7 @@ that may currently be there." (interactive "p") (sx-question-list-next n) (sx-question-mode--display - (tabulated-list-get-id) + (tabulated-list-get-id) (sx-question-list--create-question-window))) (defun sx-question-list--create-question-window () diff --git a/sx-question-mode.el b/sx-question-mode.el index 4263f6e..b73afef 100644 --- a/sx-question-mode.el +++ b/sx-question-mode.el @@ -53,11 +53,11 @@ Common values for this variable are `pop-to-buffer' and `switch-to-buffer'." (defun sx-question-mode--get-window () "Return a window displaying a question, or nil." - (car-safe - (cl-member-if - (lambda (x) (with-selected-window x - (derived-mode-p 'sx-question-mode))) - (window-list nil 'never nil)))) + (get-window-with-predicate + (lambda (win) + (with-selected-window win + (derived-mode-p 'sx-question-mode))) + 'never)) (defun sx-question-mode--display (data &optional window) "Display question given by DATA on WINDOW. |