From: Vibhav Pant <vibhavp@gmail.com>
Date: Sat, 2 Dec 2017 05:38:34 +0000 (+0530)
Subject: lisp/erc/erc.el: Use inline-letevals for when args are buffer local.
X-Git-Tag: emacs-27.0.90~6104
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4856ee17175a80dc105e060c1184d3b3df07e1cf;p=emacs.git

lisp/erc/erc.el: Use inline-letevals for when args are buffer local.

* lisp/erc/erc.el: (erc-get-server-user, erc-add-server-user,
  erc-remove-server-user): Use inline-letevals for when the arguments
  refer to buffer-local variables.
---

diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 9b4c6ac48a3..eee79464a9a 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -409,16 +409,18 @@ in the current buffer's `erc-channel-users' hash table."
 (define-inline erc-get-server-user (nick)
   "Find the USER corresponding to NICK in the current server's
 `erc-server-users' hash table."
-  (inline-quote (erc-with-server-buffer
-		  (gethash (erc-downcase ,nick) erc-server-users))))
+  (inline-letevals (nick)
+    (inline-quote (erc-with-server-buffer
+		    (gethash (erc-downcase ,nick) erc-server-users)))))
 
 (define-inline erc-add-server-user (nick user)
   "This function is for internal use only.
 
 Adds USER with nickname NICK to the `erc-server-users' hash table."
-  (inline-quote
-   (erc-with-server-buffer
-     (puthash (erc-downcase ,nick) ,user erc-server-users))))
+  (inline-letevals (nick user)
+    (inline-quote
+     (erc-with-server-buffer
+       (puthash (erc-downcase ,nick) ,user erc-server-users)))))
 
 (define-inline erc-remove-server-user (nick)
   "This function is for internal use only.
@@ -428,9 +430,10 @@ hash table.  This user is not removed from the
 `erc-channel-users' lists of other buffers.
 
 See also: `erc-remove-user'."
-  (inline-quote
-   (erc-with-server-buffer
-     (remhash (erc-downcase ,nick) erc-server-users))))
+  (inline-letevals (nick)
+    (inline-quote
+     (erc-with-server-buffer
+       (remhash (erc-downcase ,nick) erc-server-users)))))
 
 (defun erc-change-user-nickname (user new-nick)
   "This function is for internal use only.