branch: externals/transient
commit f8fd1a232a5cad55a9262c5f8a1aa7a4ce131316
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient--layout-member: Rename a local variable
---
lisp/transient.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 17942e0a82..c6c6cffbbc 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1598,26 +1598,26 @@ See info node `(transient)Modifying Existing
Transients'."
(plist-put (elt suf 2) prop value))))
(defun transient--layout-member (loc prefix &optional remove)
- (let ((val (transient--get-layout prefix)))
+ (let ((layout (transient--get-layout prefix)))
(when (vectorp loc)
(setq loc (append loc nil)))
(when (listp loc)
(while (integerp (car loc))
- (let* ((children (if (vectorp val) (aref val 3) val))
+ (let* ((children (if (vectorp layout) (aref layout 3) layout))
(mem (transient--nthcdr (pop loc) children)))
(if (and remove (not loc))
(let ((rest (delq (car mem) children)))
- (if (vectorp val)
- (aset val 3 rest)
+ (if (vectorp layout)
+ (aset layout 3 rest)
(transient--set-layout prefix rest))
- (setq val nil))
- (setq val (if loc (car mem) mem)))))
+ (setq layout nil))
+ (setq layout (if loc (car mem) mem)))))
(setq loc (car loc)))
(when (stringp loc)
(setq loc (kbd loc)))
(if loc
- (transient--layout-member-1 loc val remove)
- val)))
+ (transient--layout-member-1 loc layout remove)
+ layout)))
(defun transient--layout-member-1 (loc layout remove)
(cond ((listp layout)
