浏览代码

Fix resolve-object

master
10sr 6 年前
父节点
当前提交
324529c714
签署人:: 10sr GPG 密钥 ID: 7BEC428194130EB2
共有 1 个文件被更改,包括 8 次插入6 次删除
  1. +8
    -6
      emacs.el

+ 8
- 6
emacs.el 查看文件

@@ -1,6 +1,6 @@
;;; emacs.el --- 10sr emacs initialization

;; Time-stamp: <2018-10-15 15:31:46 JST 10sr>
;; Time-stamp: <2018-10-15 15:40:45 JST 10sr>

;;; Code:

@@ -2332,10 +2332,10 @@ use for the buffer. It defaults to \"*recetf-show*\"."
(ansi-color-apply-on-region (point-min)
(point))
(insert "\n"))
(setq point-tree-start (point))
(insert "Contents of treeish object '")
(insert treeish)
(insert "':\n")
(setq point-tree-start (point))
(git-walktree--call-process nil
"ls-tree"
;; "-r"
@@ -2460,10 +2460,12 @@ without checking it."

(defun git-walktree--resolve-object (commitish path)
"Return object id of COMMITISIH:PATH."
(let ((info (git-walktree--parse-lstree-line (git-walktree--git-plumbing "ls-tree"
commitish
path))))
(plist-get info :object)))
(with-temp-buffer
(cd (git-walktree--git-plumbing "rev-parse" "--show-toplevel"))
(let ((info (git-walktree--parse-lstree-line (git-walktree--git-plumbing "ls-tree"
commitish
path))))
(plist-get info :object))))

(defun git-walktree-open (commitish &optional path object)
"Open git tree buffer of COMMITISH.


正在加载...
取消
保存