| @@ -2327,7 +2327,7 @@ TYPE is target object type." | |||||
| (current-buffer)))))) | (current-buffer)))))) | ||||
| ;; TODO: Change func name | ;; TODO: Change func name | ||||
| (defun git-walktree--replace-into (target) | |||||
| (defun git-walktree--replace-into-buffer (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 | ||||
| @@ -2386,7 +2386,7 @@ TYPE is target object type." | |||||
| treeish) | treeish) | ||||
| ;; TODO: Somehow text properties are stripped here | ;; TODO: Somehow text properties are stripped here | ||||
| (git-walktree--replace-into buf)))) | |||||
| (git-walktree--replace-into-buffer buf)))) | |||||
| (git-walktree-mode) | (git-walktree-mode) | ||||
| (set-buffer-modified-p nil) | (set-buffer-modified-p nil) | ||||
| @@ -2440,7 +2440,7 @@ Result will be inserted into current buffer." | |||||
| "cat-file" | "cat-file" | ||||
| "-p" | "-p" | ||||
| blob) | blob) | ||||
| (git-walktree--replace-into buf))) | |||||
| (git-walktree--replace-into-buffer buf))) | |||||
| (setq git-walktree-buffer-file-name | (setq git-walktree-buffer-file-name | ||||
| (concat (git-walktree--git-plumbing "rev-parse" | (concat (git-walktree--git-plumbing "rev-parse" | ||||
| "--show-toplevel") | "--show-toplevel") | ||||