瀏覽代碼

Add TODOs

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

+ 4
- 2
emacs.el 查看文件

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


;; Time-stamp: <2018-10-15 16:30:33 JST 10sr>
;; Time-stamp: <2018-10-15 18:10:08 JST 10sr>


;;; Code: ;;; Code:


@@ -2542,7 +2542,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
;; TODO: Support commit object
"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)
@@ -2615,6 +2615,8 @@ If not given, value of current buffer will be used."


(defvar git-walktree-mode-map (defvar git-walktree-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
;; TODO: Add git-walktree-parent-revision
;; TODO: Add git-walktree-next-line
(define-key map "n" 'next-line) (define-key map "n" 'next-line)
(define-key map "p" 'previous-line) (define-key map "p" 'previous-line)
(define-key map "^" 'git-walktree-up) (define-key map "^" 'git-walktree-up)


Loading…
取消
儲存