Add some variables

emacs.el

@@ -1,6 +1,6 @@
 ;;; emacs.el --- 10sr emacs initialization
 
-;; Time-stamp: <2018-10-12 21:23:22 JST 10sr>
+;; Time-stamp: <2018-10-12 21:29:13 JST 10sr>
 
 ;;; Code:
 
@@ -2254,6 +2254,14 @@ use for the buffer. It defaults to \"*recetf-show*\"."
   "Path name currently visiting without leading slash.")
 (make-variable-buffer-local 'git-walktree-current-path)
 
+(defvar git-walktree-buffer-file-name nil
+  "Psudo filename of current buffer.")
+(make-variable-buffer-local 'git-walktree-buffer-file-name)
+
+(defvar git-walktree-object-id nil
+  "Object id of current buffer.")
+(make-variable-buffer-local 'git-walktree-object-id)
+
 (defun git-walktree--create-buffer (commitish name)
   ;; TODO: check repository
   "Create and return buffer for NAME."
@@ -2310,6 +2318,7 @@ use for the buffer. It defaults to \"*recetf-show*\"."
 
       (setq git-walktree-current-commitish commitish)
       (setq git-walktree-current-path path)
+      (setq git-walktree-object-id treeish)
       ;; FIXME: Somehow point go back to point-min when reopen the buffer
       (if (eq point (point-min))
           (goto-char point-tree-start)
@@ -2349,13 +2358,15 @@ Result will be inserted into current buffer."
                                     "cat-file"
                                     "-p"
                                     blob))
-      (setq buffer-file-name
+      (setq git-walktree-buffer-file-name
             (concat (git-walktree--git-plumbing "rev-parse"
                                                 "--show-toplevel")
                     "/git@"
                     commitish
                     ":"
                     path))
+      (setq buffer-file-name
+            git-walktree-buffer-file-name)
       (normal-mode t)
       ;; For asking filename when C-xC-s
       (setq buffer-file-name nil)
@@ -2363,6 +2374,7 @@ Result will be inserted into current buffer."
 
       (setq git-walktree-current-commitish commitish)
       (setq git-walktree-current-path path)
+      (setq git-walktree-object-id blob)
       (setq buffer-read-only t)
       (goto-char point)
       )