Remove point var

emacs.el

@@ -1,6 +1,6 @@
 ;;; emacs.el --- 10sr emacs initialization
 
-;; Time-stamp: <2018-10-15 15:44:25 JST 10sr>
+;; Time-stamp: <2018-10-15 15:50:01 JST 10sr>
 
 ;;; Code:
 
@@ -2305,8 +2305,7 @@ use for the buffer. It defaults to \"*recetf-show*\"."
 (require 'ansi-color)
 (defun git-walktree--open-treeish (commitish path treeish)
   "Open git tree buffer of TREEISH."
-  (let (point
-        point-tree-start
+  (let (point-tree-start
         (buf (git-walktree--create-buffer commitish path))
         (type (git-walktree--git-plumbing "cat-file"
                                           "-t"
@@ -2320,7 +2319,6 @@ use for the buffer. It defaults to \"*recetf-show*\"."
       (cd git-walktree-repository-root)
       (save-excursion
         (let ((inhibit-read-only t))
-          (setq point (point))
           (with-temp-buffer
             (when commitish
               (git-walktree--call-process nil
@@ -2354,11 +2352,9 @@ use for the buffer. It defaults to \"*recetf-show*\"."
                    (file-directory-p dir))
           (cd dir)))
       ;; FIXME: Somehow point go back to point-min when reopen the buffer
-      (if (eq point (point-min))
-          (goto-char point-tree-start)
-        ;; (goto-char point)
+      (when (= (point) (point-min))
+        (goto-char point-tree-start)
         )
-      (message "POINT: %S" (point))
       )
     buf))
 
@@ -2379,8 +2375,7 @@ Result will be inserted into current buffer."
 ?w
 (defun git-walktree--open-blob (commitish path blob)
   "Open BLOB object."
-  (let (point
-        (type (git-walktree--git-plumbing "cat-file"
+  (let ((type (git-walktree--git-plumbing "cat-file"
                                           "-t"
                                           blob))
         (buf (git-walktree--create-buffer commitish path)))
@@ -2389,7 +2384,6 @@ Result will be inserted into current buffer."
       ;; For running git command go back to repository root
       (cd git-walktree-repository-root)
       (let ((inhibit-read-only t))
-        (setq point (point))
         (with-temp-buffer
           (git-walktree--call-process nil
                                       "cat-file"
@@ -2421,7 +2415,6 @@ Result will be inserted into current buffer."
           (cd dir)))
 
       (view-mode 1)
-      ;; (goto-char point)
       )
     buf))