diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2025-08-22 20:55:34 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2025-08-22 20:55:34 +0200 |
| commit | 594723c6391fb1320a1a80d688edda7c96803f16 (patch) | |
| tree | 5b70f0d2081dc58fe064fd1466faf59efc6c495c /lisp/magit-refs.el | |
| parent | fcd2907fca0921c5338808e28427d7ca2649479c (diff) | |
Use Cond-Let's implementation of and-let
Using the "other elements of VARLIST have access to SYMBOLs from
earlier elements" variant is IMHO _wrong_ when there are in fact
no other elements.
Diffstat (limited to 'lisp/magit-refs.el')
| -rw-r--r-- | lisp/magit-refs.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/magit-refs.el b/lisp/magit-refs.el index 858f6f6..fe690f5 100644 --- a/lisp/magit-refs.el +++ b/lisp/magit-refs.el @@ -363,9 +363,9 @@ Type \\[magit-reset] to reset `HEAD' to the commit at point. ((eq major-mode 'magit-refs-mode) (setq args magit-buffer-arguments)) ((and (memq use-buffer-args '(always selected)) - (and-let* ((buffer (magit-get-mode-buffer - 'magit-refs-mode nil - (eq use-buffer-args 'selected)))) + (and-let ((buffer (magit-get-mode-buffer + 'magit-refs-mode nil + (eq use-buffer-args 'selected)))) (progn (setq args (buffer-local-value 'magit-buffer-arguments buffer)) t)))) @@ -509,8 +509,8 @@ Branch %s already exists. "<1>" (magit-menu-item "Visit %s" #'magit-visit-ref)) (defun magit--painted-branch-as-menu-section (section) - (and-let* ((_(magit-section-match 'commit)) - (branch (magit--painted-branch-at-point))) + (and-let ((_(magit-section-match 'commit)) + (branch (magit--painted-branch-at-point))) (let ((dummy (magit-section :type 'branch :value branch))) (oset dummy keymap magit-branch-section-map) (dolist (slot '(start content hidden parent children)) |