]> git.eshelyaron.com Git - emacs.git/commitdiff
Avoid "already compiled" warning in erc-compat
authorF. Jason Park <jp@neverwas.me>
Wed, 28 Dec 2022 14:18:01 +0000 (06:18 -0800)
committerF. Jason Park <jp@neverwas.me>
Wed, 28 Dec 2022 14:51:38 +0000 (06:51 -0800)
* lisp/erc/erc-compat.el (erc-compat--29-auth-source-pass-search):
Don't `byte-compile' sub-29 secrets wrapper.  This was especially
noisy in tests.  Ditch closed-over vars via HOF instead of suppressing
because compiling emits "unused lexical" warning on Emacs 27.

lisp/erc/erc-compat.el

index fdcb146d42a656c2e4dfaed2b687abe10064d486..864c5882cf2b8f0bb4b2f8bd508219f4fda4ab0d 100644 (file)
@@ -261,7 +261,7 @@ If START or END is negative, it counts from the end."
             (when-let* ((s (plist-get e :secret))
                         (v (auth-source--obfuscate s)))
               (setf (plist-get e :secret)
-                    (byte-compile (lambda () (auth-source--deobfuscate v)))))
+                    (apply-partially #'auth-source--deobfuscate v)))
             (push e out)))
       rv)))