ovy / git-emacs Goto Github PK

   signal(error ("strange type : commit"))
   error("strange type : %s" "commit")
   (cond ((string= type "blob") (quote blob)) ((string= type "tree") (quote tree)) (t (error "strange type : %s" type)))
   git--to-type-sym("commit")
   (git--create-fileinfo file (git--to-type-sym type) sha1 perm nil (quote uptodate))
   (cons (git--create-fileinfo file (git--to-type-sym type) sha1 perm nil (quote uptodate)) fileinfo)
   (setq fileinfo (cons (git--create-fileinfo file ... sha1 perm nil ...) fileinfo))
   (push (git--create-fileinfo file (git--to-type-sym type) sha1 perm nil (quote uptodate)) fileinfo)
   (let ((perm ...) (type ...) (sha1 ...) (file ...)) (push (git--create-fileinfo file ... sha1 perm nil ...) fileinfo))
   (while (re-search-forward regexp nil t) (let (... ... ... ...) (push ... fileinfo)))
   (let ((regexp ...)) (while (re-search-forward regexp nil t) (let ... ...)))
   (progn (apply (function git--exec-buffer) "ls-tree" "-z" args) (goto-char (point-min)) (let (...) (while ... ...)))
   (unwind-protect (progn (apply ... "ls-tree" "-z" args) (goto-char ...) (let ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
   (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))
   (with-current-buffer temp-buffer (unwind-protect (progn ... ... ...) (and ... ...)))
   (let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ... ...)))
   (with-temp-buffer (apply (function git--exec-buffer) "ls-tree" "-z" args) (goto-char (point-min)) (let (...) (while ... ...)))
   (let (fileinfo) (with-temp-buffer (apply ... "ls-tree" "-z" args) (goto-char ...) (let ... ...)) (sort fileinfo (quote git--fileinfo-lessp)))
   git--ls-tree("b35766b87131d9b5b5677b8bff233b99489a9fbf")
   (let* ((data ...) (name ...) (type ...) (fileinfo ...)) (unless (eq type ...) (error "type should be 'tree")) (unless (git--fileinfo->expanded data) (dolist ... ...) (setf ... t)))
 * git--expand-tree([[[[[[[[[[[[[[[[[[[[[[[#0 #21 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob ".gitmodules" nil "100644" "8058a79060c645762de6e5101108a793cc918eb8"] #<marker at 157 in *git-status on ~/.emacs.d/*>] #20 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "README" nil "100644" "450a4ff299d28865d2711630f3d4fe94d02f7c2c"] #<marker at 201 in *git-status on ~/.emacs.d/*>] #19 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "init.el" nil "100644" "f4c7c46e5caa565d763cdd9463636d24f2aac371"] #<marker at 240 in *git-status on ~/.emacs.d/*>] #18 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-anything.el" nil "100644" "0fe18cb1b206caccbc0cc99dbf2636c158589f1a"] #<marker at 280 in *git-status on ~/.emacs.d/*>] #17 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-bindings.el" nil "100644" "eaf22240f20bdb39dfb9d53252a9c08faa1df468"] #<marker at 331 in *git-status on ~/.emacs.d/*>] #16 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-defuns.el" nil "100644" "885bfebc05e2ecd00c69a445e9aeb1a918bbe132"] #<marker at 382 in *git-status on ~/.emacs.d/*>] #15 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-development.el" nil "100644" "7ebf8a5700771dd1b83b99a1c750795b66147d71"] #<marker at 431 in *git-status on ~/.emacs.d/*>] #14 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-gui.el" nil "100644" "3b55bd507635ca67486fd60b94c8a6a9cd33cc0c"] #<marker at 485 in *git-status on ~/.emacs.d/*>] #13 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-misc.el" nil "100644" "b56ff782aad92d37418c2fc3b732890a8235e27c"] #<marker at 531 in *git-status on ~/.emacs.d/*>] #12 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-navigation.el" nil "100644" "4cbc765a90967af98d8da5fd6f0b8d8113bb7f02"] #<marker at 578 in *git-status on ~/.emacs.d/*>] #11 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-org.el" nil "100644" "a6ad5654e82c52951fc157fe29ef4124c4fc53a8"] #<marker at 631 in *git-status on ~/.emacs.d/*>] #10 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-private.el" nil "100644" "737596b7b50ce0db988194966f7a36ec96de90c3"] #<marker at 677 in *git-status on ~/.emacs.d/*>] #9 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-registers.el" nil "100644" "ba6be1c14d55c81693d0e08e397c307d699138f0"] #<marker at 727 in *git-status on ~/.emacs.d/*>] #8 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-ruby.el" nil "100644" "cc1f56fa26d360367fcfaaebe9b38bff6f4cfd64"] #<marker at 779 in *git-status on ~/.emacs.d/*>] #7 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-russification.el" nil "100644" "192c93afacdd58d8e63e4e5dd445f3d0c80d194e"] #<marker at 826 in *git-status on ~/.emacs.d/*>] #6 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-test.el" nil "100644" "f479af97fd12736a026a23905a117e9f38915011"] #<marker at 882 in *git-status on ~/.emacs.d/*>] #5 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-utils.el" nil "100644" "9d843a47f991f9d48d01520b36733327707db111"] #<marker at 929 in *git-status on ~/.emacs.d/*>] #4 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-webdev.el" nil "100644" "9591b4c65959b2fd46ac22370bbc1373e495d548"] #<marker at 977 in *git-status on ~/.emacs.d/*>] #3 [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "org-assoc-tags.el" nil "100644" "d22fa2575d9eb37981f6e1001c8482f9aa6b9f01"] #<marker at 1026 in *git-status on ~/.emacs.d/*>] #2 "" #<marker at 1076 in *git-status on ~/.emacs.d/*>] #1 DL-LIST #<marker at 1077 in *git-status on ~/.emacs.d/*>] #0 #("Directory : ~/.emacs.d/\nBranch    : master\nLast Log  : 2da68be85ca362c4ae22c6c7a8bcc86101e86aa8 Fix E-key in agenda\n" 0 9 ... 24 33 ... 43 52 ...) #<marker at 1 in *git-status on ~/.emacs.d/*>] [#0 [#1 [#2 [#3 [#4 [#5 [#6 [#7 [#8 [#9 [#10 [#11 [#12 [#13 [#14 [#15 [#16 [#17 [#18 [#19 [#20 [#21 #0 #("Directory : ~/.emacs.d/\nBranch    : master\nLast Log  : 2da68be85ca362c4ae22c6c7a8bcc86101e86aa8 Fix E-key in agenda\n" 0 9 ... 24 33 ... 43 52 ...) #<marker at 1 in *git-status on ~/.emacs.d/*>] DL-LIST #<marker at 1077 in *git-status on ~/.emacs.d/*>] "" #<marker at 1076 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "org-assoc-tags.el" nil "100644" "d22fa2575d9eb37981f6e1001c8482f9aa6b9f01"] #<marker at 1026 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-webdev.el" nil "100644" "9591b4c65959b2fd46ac22370bbc1373e495d548"] #<marker at 977 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-utils.el" nil "100644" "9d843a47f991f9d48d01520b36733327707db111"] #<marker at 929 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-test.el" nil "100644" "f479af97fd12736a026a23905a117e9f38915011"] #<marker at 882 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-russification.el" nil "100644" "192c93afacdd58d8e63e4e5dd445f3d0c80d194e"] #<marker at 826 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-ruby.el" nil "100644" "cc1f56fa26d360367fcfaaebe9b38bff6f4cfd64"] #<marker at 779 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-registers.el" nil "100644" "ba6be1c14d55c81693d0e08e397c307d699138f0"] #<marker at 727 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-private.el" nil "100644" "737596b7b50ce0db988194966f7a36ec96de90c3"] #<marker at 677 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-org.el" nil "100644" "a6ad5654e82c52951fc157fe29ef4124c4fc53a8"] #<marker at 631 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-navigation.el" nil "100644" "4cbc765a90967af98d8da5fd6f0b8d8113bb7f02"] #<marker at 578 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-misc.el" nil "100644" "b56ff782aad92d37418c2fc3b732890a8235e27c"] #<marker at 531 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-gui.el" nil "100644" "3b55bd507635ca67486fd60b94c8a6a9cd33cc0c"] #<marker at 485 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-development.el" nil "100644" "7ebf8a5700771dd1b83b99a1c750795b66147d71"] #<marker at 431 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-defuns.el" nil "100644" "885bfebc05e2ecd00c69a445e9aeb1a918bbe132"] #<marker at 382 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-bindings.el" nil "100644" "eaf22240f20bdb39dfb9d53252a9c08faa1df468"] #<marker at 331 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "kemacs-anything.el" nil "100644" "0fe18cb1b206caccbc0cc99dbf2636c158589f1a"] #<marker at 280 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "init.el" nil "100644" "f4c7c46e5caa565d763cdd9463636d24f2aac371"] #<marker at 240 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob "README" nil "100644" "450a4ff299d28865d2711630f3d4fe94d02f7c2c"] #<marker at 201 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 1 uptodate blob ".gitmodules" nil "100644" "8058a79060c645762de6e5101108a793cc918eb8"] #<marker at 157 in *git-status on ~/.emacs.d/*>] [cl-struct-git--fileinfo nil nil nil 3 uptodate tree "vendor" nil "040000" "b35766b87131d9b5b5677b8bff233b99489a9fbf"] #<marker at 118 in *git-status on ~/.emacs.d/*>])
   (if (git--fileinfo->expanded node-info) (git--shrink-tree node) (git--expand-tree node))
   (progn (if (git--fileinfo->expanded node-info) (git--shrink-tree node) (git--expand-tree node)))
   (if (and node node-info (eq ... ...)) (progn (if ... ... ...)))
   (when (and node node-info (eq ... ...)) (if (git--fileinfo->expanded node-info) (git--shrink-tree node) (git--expand-tree node)))
   (let* ((node ...) (node-info ...)) (when (and node node-info ...) (if ... ... ...)))
   git--status-view-expand-tree-toggle()
   call-interactively(git--status-view-expand-tree-toggle nil nil)