[elpa] elpa-admin d1a6387: * elpa-admin.el (elpaa--html-build-doc): Fix backward compatibility

[Stefan Monnier]

branch: elpa-admin
commit d1a63872d39bf2dc59822141353ecd5be88c0f1f
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * elpa-admin.el (elpaa--html-build-doc): Fix backward compatibility
    
    Emacs-27 doesn't have a setf handler for `plist-get`.
---
 elpa-admin.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index a13b17f..381aed6 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1983,8 +1983,12 @@ directory; one of archive, archive-devel."
        t "makeinfo" "--no-split" "--html" docfile "-o" tmpfile)
       (message "%s" (buffer-string)))
     (rename-file tmpfile html-file t)
-    (push (cons (file-name-base html-file) (file-name-nondirectory html-file))
-          (plist-get (cdr pkg-spec) :internal--html-docs))
+    ;; FIXME: Use `push' in Emacs≥28
+    (plist-put (cdr pkg-spec)
+               :internal--html-docs
+               (cons (cons (file-name-base html-file)
+                           (file-name-nondirectory html-file))
+                     (plist-get (cdr pkg-spec) :internal--html-docs)))
 
     ;; Create a symlink from elpa/archive[-devel]/doc/* to
     ;; the actual file, so html references work.