From 4856ee17175a80dc105e060c1184d3b3df07e1cf Mon Sep 17 00:00:00 2001 From: Vibhav Pant Date: Sat, 2 Dec 2017 11:08:34 +0530 Subject: [PATCH] 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 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. -- 2.39.5