From e83a88740fb04225d0136cf79b8ae5511005f301 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Wed, 24 Apr 2024 20:46:18 +0200 Subject: revert changes to auth--show-notice so that we see the message prompt --- lisp/mastodon-auth.el | 30 ++++++++++++++++++------------ 1 file changed, 18 insertions(+), 12 deletions(-) (limited to 'lisp') diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el index 9f9d128..404dd57 100644 --- a/lisp/mastodon-auth.el +++ b/lisp/mastodon-auth.el @@ -112,18 +112,24 @@ When optional argument ASK is given which should be a string, use ASK as the minibuffer prompt. Return whatever user types in response to the prompt. When ASK is absent return nil." - (if ask - (read-string ask) - (let ((buffer (get-buffer-create buffer-name)) - (inhibit-read-only t)) - (set-buffer buffer) - (erase-buffer) - (insert notice) - (fill-region (point-min) (point-max)) - (read-only-mode) - (prog1 nil - (pop-to-buffer buffer '(display-buffer-in-side-window - (side . left) (window-width . 0.5))))))) + (let ((buffer (get-buffer-create buffer-name)) + (inhibit-read-only t) + ask-value window) + (set-buffer buffer) + (erase-buffer) + (insert notice) + (fill-region (point-min) (point-max)) + (read-only-mode) + + (setq window (select-window + (split-window (frame-root-window) nil 'below) + t)) + (switch-to-buffer buffer t) + (when ask + (setq ask-value (read-string ask)) + (kill-buffer buffer) + (delete-window window)) + ask-value)) (defun mastodon-auth--request-authorization-code () "Ask authorization code and return it." -- cgit v1.2.3