Fix func name

emacs.el

@@ -1,6 +1,6 @@
 ;;; emacs.el --- 10sr emacs initialization
 
-;; Time-stamp: <2018-10-16 23:14:49 JST 10sr>
+;; Time-stamp: <2018-10-16 23:18:27 JST 10sr>
 
 ;;; Code:
 
@@ -2704,7 +2704,7 @@ When collection has just one element, return without asking."
 If current path was not found in the parent revision try to go up path."
   (interactive)
   (if git-walktree-current-commitish
-      (let ((parents (git-walktree--parent-sha1 git-walktree-current-commitish)))
+      (let ((parents (git-walktree--parent-commitid git-walktree-current-commitish)))
         ;; TODO: Use if
         (cl-case (length parents)
           (0
@@ -2720,7 +2720,7 @@ If current path was not found in the parent revision try to go up path."
 ;; What is object id?
 ;; commit id?
 ;; commit sha1?
-(defun git-walktree--parent-sha1 (commitish)
+(defun git-walktree--parent-commitid (commitish)
   "Return list of parent commits of COMMITISH in sha1 string."
   (let ((type (git-walktree--git-plumbing "cat-file"
                                           "-t"