branch: elpa/magit
commit 769a0a24060d1c8d01bb15c86070ae56c57384de
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
magit-find-file-read-args: Cosmetics
---
lisp/magit-files.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/lisp/magit-files.el b/lisp/magit-files.el
index 814281e4781..53c10ff8f4c 100644
--- a/lisp/magit-files.el
+++ b/lisp/magit-files.el
@@ -73,16 +73,16 @@ the line and column corresponding to that location."
(magit-find-file--internal rev file #'switch-to-buffer-other-frame))
(defun magit-find-file-read-args (prompt)
- (let ((pseudo-revs '("{worktree}" "{index}")))
- (let ((rev (magit-completing-read "Find file from revision"
- (append pseudo-revs
- (magit-list-refnames nil t))
- nil 'any nil 'magit-revision-history
- (or (magit-branch-or-commit-at-point)
- (magit-get-current-branch)))))
- (list rev
- (magit-read-file-from-rev (if (member rev pseudo-revs) "HEAD" rev)
- prompt)))))
+ (let* ((pseudo-revs '("{worktree}" "{index}"))
+ (rev (magit-completing-read "Find file from revision"
+ (append pseudo-revs
+ (magit-list-refnames nil t))
+ nil 'any nil 'magit-revision-history
+ (or (magit-branch-or-commit-at-point)
+ (magit-get-current-branch)))))
+ (list rev
+ (magit-read-file-from-rev (if (member rev pseudo-revs) "HEAD" rev)
+ prompt))))
(defun magit-find-file--internal (rev file display)
(let ((buf (magit-find-file-noselect rev file)))
