[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 4856ee1: lisp/erc/erc.el: Use inline-letevals for w
From: |
Vibhav Pant |
Subject: |
[Emacs-diffs] master 4856ee1: lisp/erc/erc.el: Use inline-letevals for when args are buffer local. |
Date: |
Sat, 2 Dec 2017 01:06:57 -0500 (EST) |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 4856ee1: lisp/erc/erc.el: Use inline-letevals for when args are buffer local.,
Vibhav Pant <=