From: F. Jason Park <jp@neverwas.me>
Date: Tue, 10 Jan 2023 19:59:57 +0000 (-0800)
Subject: ; Avoid plist-get as generalized var in erc-compat
X-Git-Tag: emacs-29.0.90~698
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b13422298a2613c506d41f52fa0c0ca1588f870;p=emacs.git

; Avoid plist-get as generalized var in erc-compat

* lisp/erc/erc-compat.el (erc-compat--29-auth-source-pass-search): The
gv expander for `plist-get' was added in Emacs 28.  But ERC still
supports 27, as of this function's introduction, in Emacs 29.
---

diff --git a/lisp/erc/erc-compat.el b/lisp/erc/erc-compat.el
index 73ce612a33d..5601ede27a5 100644
--- a/lisp/erc/erc-compat.el
+++ b/lisp/erc/erc-compat.el
@@ -260,8 +260,8 @@ If START or END is negative, it counts from the end."
           (dolist (e rv out)
             (when-let* ((s (plist-get e :secret))
                         (v (auth-source--obfuscate s)))
-              (setf (plist-get e :secret)
-                    (apply-partially #'auth-source--deobfuscate v)))
+              (setq e (plist-put e :secret (apply-partially
+                                            #'auth-source--deobfuscate v))))
             (push e out)))
       rv)))