| @@ -1,6 +1,6 @@ | |||||
| ;;; emacs.el --- 10sr emacs initialization | ;;; 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: | ;;; Code: | ||||
| @@ -2332,10 +2332,10 @@ use for the buffer. It defaults to \"*recetf-show*\"." | |||||
| (ansi-color-apply-on-region (point-min) | (ansi-color-apply-on-region (point-min) | ||||
| (point)) | (point)) | ||||
| (insert "\n")) | (insert "\n")) | ||||
| (setq point-tree-start (point)) | |||||
| (insert "Contents of treeish object '") | (insert "Contents of treeish object '") | ||||
| (insert treeish) | (insert treeish) | ||||
| (insert "':\n") | (insert "':\n") | ||||
| (setq point-tree-start (point)) | |||||
| (git-walktree--call-process nil | (git-walktree--call-process nil | ||||
| "ls-tree" | "ls-tree" | ||||
| ;; "-r" | ;; "-r" | ||||
| @@ -2460,10 +2460,12 @@ without checking it." | |||||
| (defun git-walktree--resolve-object (commitish path) | (defun git-walktree--resolve-object (commitish path) | ||||
| "Return object id of COMMITISIH: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) | (defun git-walktree-open (commitish &optional path object) | ||||
| "Open git tree buffer of COMMITISH. | "Open git tree buffer of COMMITISH. | ||||