瀏覽代碼

Fix

master
10sr 6 年之前
父節點
當前提交
4288c00ace
簽署人: 10sr GPG Key ID: 7BEC428194130EB2
共有 1 個文件被更改,包括 5 次插入2 次删除
  1. +5
    -2
      emacs.el

+ 5
- 2
emacs.el 查看文件

@@ -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…
取消
儲存