瀏覽代碼

Add todo

master
10sr 7 年之前
父節點
當前提交
7f611426e4
簽署人: 10sr GPG 金鑰 ID: C384BB17CBB19347
共有 1 個檔案被更改,包括 3 行新增1 行删除
  1. +3
    -1
      emacs.el

+ 3
- 1
emacs.el 查看文件

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


;; Time-stamp: <2018-10-12 19:43:38 JST 10sr>
;; Time-stamp: <2018-10-12 21:23:22 JST 10sr>


;;; Code: ;;; Code:


@@ -2410,6 +2410,7 @@ without checking it."
(plist-get info :object))) (plist-get info :object)))


(defun git-walktree-open (commitish &optional path object) (defun git-walktree-open (commitish &optional path object)
;; TODO: What to do when currently in subdirectory?
"Open git tree buffer of COMMITISH. "Open git tree buffer of COMMITISH.
When PATH was given and non-nil open that, otherwise open root tree. When PATH was given and non-nil open that, otherwise open root tree.
When OBJECT was given and non-nil, assume that is the object of COMMITISH:PATH without When OBJECT was given and non-nil, assume that is the object of COMMITISH:PATH without
@@ -2481,6 +2482,7 @@ Returns property list like (:mode MODE :type TYPE :object OBJECT :file FILE)."
:file (match-string 4))))))) :file (match-string 4)))))))


(defun git-walktree-mode-open-this () (defun git-walktree-mode-open-this ()
;; TODO: Support submodule
"Open current object." "Open current object."
(interactive) (interactive)
(let ((info (git-walktree--parse-lstree-line (buffer-substring-no-properties (point-at-bol) (let ((info (git-walktree--parse-lstree-line (buffer-substring-no-properties (point-at-bol)


Loading…
取消
儲存