branch: elpa/magit
commit 1f895f1326ba93e65e3533fb910c3e6bcae2dcc4
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Replace unnecessary let* with let
---
lisp/magit-diff.el | 4 ++--
lisp/magit-mode.el | 4 ++--
lisp/magit-section.el | 2 +-
3 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index 36b785c1f8a..9a69e68e8cf 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -1795,8 +1795,8 @@ the Magit-Status buffer for DIRECTORY."
(defun magit-diff-visit--position (buffer rev file goto-from goto-file)
(and-let ((hunk (magit-diff--hunk-section)))
- (let* ((line (magit-diff-hunk-line hunk goto-from))
- (column (magit-diff-hunk-column hunk goto-from)))
+ (let ((line (magit-diff-hunk-line hunk goto-from))
+ (column (magit-diff-hunk-column hunk goto-from)))
(with-current-buffer buffer
(when (and goto-file (not (equal rev "{worktree}")))
(setq line (magit-diff-visit--offset
diff --git a/lisp/magit-mode.el b/lisp/magit-mode.el
index ba97330f7ee..74c34af9ac8 100644
--- a/lisp/magit-mode.el
+++ b/lisp/magit-mode.el
@@ -717,8 +717,8 @@ and `magit-post-display-buffer-hook'."
(let ((window (funcall (or display-function magit-display-buffer-function)
buffer)))
(unless magit-display-buffer-noselect
- (let* ((old-frame (selected-frame))
- (new-frame (window-frame window)))
+ (let ((old-frame (selected-frame))
+ (new-frame (window-frame window)))
(select-window window)
(unless (eq old-frame new-frame)
(select-frame-set-input-focus new-frame)))))
diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index 983c5254789..244f212fc54 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -1316,7 +1316,7 @@ matches if no other CONDITION match, even if there is no
section
at point."
(declare (indent 0)
(debug (&rest (sexp body))))
- `(let* ((it (magit-current-section)))
+ `(let ((it (magit-current-section)))
(cond ,@(mapcar (lambda (clause)
`(,(or (eq (car clause) t)
`(and it
