浏览代码

Update

master
10sr 7 年前
父节点
当前提交
57a6fb949a
签署人:: 10sr GPG 密钥 ID: 7BEC428194130EB2
共有 1 个文件被更改,包括 8 次插入4 次删除
  1. +8
    -4
      emacs.el

+ 8
- 4
emacs.el 查看文件

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


;; Time-stamp: <2018-10-18 16:35:55 JST 10sr>
;; Time-stamp: <2018-10-18 16:53:25 JST 10sr>


;;; Code: ;;; Code:


@@ -2327,13 +2327,16 @@ TYPE is target object type."
(setq git-walktree-repository-root root) (setq git-walktree-repository-root root)
(current-buffer)))))) (current-buffer))))))


;; TODO: Change func name
(defun git-walktree--replace-into (target) (defun git-walktree--replace-into (target)
"Replace TARGET buffer contents with that of current buffer." "Replace TARGET buffer contents with that of current buffer."
(let ((buf (current-buffer))) (let ((buf (current-buffer)))
(with-current-buffer target (with-current-buffer target
(replace-buffer-contents buf))))
(save-excursion
(erase-buffer)
(insert-buffer-substring buf)))))


(require 'ansi-color)
(require 'ansi-color)
(defun git-walktree--open-treeish (commitish path treeish) (defun git-walktree--open-treeish (commitish path treeish)
"Open git tree buffer of TREEISH." "Open git tree buffer of TREEISH."
(cl-assert path) (cl-assert path)
@@ -2363,7 +2366,8 @@ TYPE is target object type."
"-c" "-c"
"color.ui=always" "color.ui=always"
"show" "show"
"--no-patch"
"--stat"
;; "--no-patch"
"--color=always" "--color=always"
"--pretty=short" "--pretty=short"
commitish) commitish)


正在加载...
取消
保存