[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 7b13422298 1/3: ; Avoid plist-get as generalized var in erc-com
From: |
F. Jason Park |
Subject: |
emacs-29 7b13422298 1/3: ; Avoid plist-get as generalized var in erc-compat |
Date: |
Tue, 17 Jan 2023 09:11:17 -0500 (EST) |
branch: emacs-29
commit 7b13422298a2613c506d41f52fa0c0ca1588f870
Author: F. Jason Park <jp@neverwas.me>
Commit: F. Jason Park <jp@neverwas.me>
; 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.
---
lisp/erc/erc-compat.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/erc/erc-compat.el b/lisp/erc/erc-compat.el
index 73ce612a33..5601ede27a 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)))