10sr 7 lat temu
rodzic
commit
57a6fb949a
Podpisane przez: 10sr ID klucza GPG: 7BEC428194130EB2
1 zmienionych plików z 8 dodań i 4 usunięć
  1. +8
    -4
      emacs.el

+ 8
- 4
emacs.el Wyświetl plik

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


Ładowanie…
Anuluj
Zapisz