瀏覽代碼

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.


Loading…
取消
儲存