Explorar el Código

Fix resolve-object

master
10sr hace 6 años
padre
commit
324529c714
Firmado por: 10sr ID de clave GPG: 7BEC428194130EB2
Se han modificado 1 ficheros con 8 adiciones y 6 borrados
  1. +8
    -6
      emacs.el

+ 8
- 6
emacs.el Ver fichero

@@ -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.


Cargando…
Cancelar
Guardar