[Emacs-diffs] master 4856ee1: lisp/erc/erc.el: Use inline-letevals for when args are buffer local.

[Vibhav Pant]

branch: master
commit 4856ee17175a80dc105e060c1184d3b3df07e1cf
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>

    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.
---
 lisp/erc/erc.el | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 9b4c6ac..eee7946 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.