diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2025-07-12 10:12:03 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2025-07-12 10:12:03 +0200 |
| commit | 21dd680080af75fc181c74cc2f6aedf4dbe953fb (patch) | |
| tree | f4648bb93378066d4c886da6e8d7be2d586f20fd | |
| parent | f85f0096aca0ded7bf27ccb7b1fcc0ed67e2a7c5 (diff) | |
magit-worktree-move: Call read-directory-name directly
No longer use `magit-worktree-read-directory-name-function', which
is still used by commands that create new worktrees. A fancy user
function suitable for worktree creation is likely contra-productive
when moving an existing worktree.
| -rw-r--r-- | lisp/magit-worktree.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/magit-worktree.el b/lisp/magit-worktree.el index 35a7f5b..bfc7b5b 100644 --- a/lisp/magit-worktree.el +++ b/lisp/magit-worktree.el @@ -86,8 +86,7 @@ Used by `magit-worktree-checkout' and `magit-worktree-branch'." (cdr (magit-list-worktrees)) nil t nil nil (magit-section-value-if 'worktree)) - (funcall magit-worktree-read-directory-name-function - "Move worktree to: "))) + (read-directory-name "Move worktree to: "))) (if (file-directory-p (expand-file-name ".git" worktree)) (user-error "You may not move the main working tree") (let ((preexisting-directory (file-directory-p directory))) |