diff --git a/emacs.el b/emacs.el index bb98d76..a103c52 100644 --- a/emacs.el +++ b/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.