Browse Source

Fix

master
10sr 6 years ago
parent
commit
4288c00ace
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 5 additions and 2 deletions
  1. +5
    -2
      emacs.el

+ 5
- 2
emacs.el View File

@@ -2578,15 +2578,18 @@ If target path is not found in COMMITISH tree, go up path and try again until fo
(defalias 'git-walktree 'git-walktree-open)

(defun git-walktree--path-in-repository (path)
"Convert PATH into relative path to repository root."
"Convert PATH into relative path to repository root.
Result will not have leading and trailing slashes."
(with-temp-buffer
(cd (if (file-directory-p path)
path
(file-name-directory path)))
(let ((root (git-walktree--git-plumbing "rev-parse"
"--show-toplevel")))
(file-relative-name path root))))
(file-relative-name (directory-file-name path)
root))))

(file-relative-name "/ab/cd/" "/ab/cd")
(defcustom git-walktree-git-executable "git"
"Git executable."
:type 'string


Loading…
Cancel
Save