From: Alex Schroeder <alex@gnu.org>
Date: Wed, 30 Jun 2021 13:11:05 +0000 (+0200)
Subject: Backfill read-answer for Emacs 26.1
X-Git-Tag: v3.0.0~22^2~11
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=643db98943ce0136ae674e6d45293ff02680a399;p=elpher.git

Backfill read-answer for Emacs 26.1
---

diff --git a/elpher.el b/elpher.el
index 967a8ce..c7be956 100644
--- a/elpher.el
+++ b/elpher.el
@@ -1271,6 +1271,11 @@ that the response was malformed."
          (error "Gemini server response unknown: %s %s"
                 response-code response-meta))))))
 
+(unless (fboundp 'read-answer)
+  (defun read-answer (question answers)
+    "Backfill for the new read-answer code."
+    (completing-read question (mapcar 'identity answers))))
+
 (defun elpher-choose-client-certificate ()
   "Prompt for a client certificate to use to establish a TLS connection."
   (let* ((read-answer-short t))