mirror of https://github.com/Chizi123/.emacs.d.git
view | history | commit | commitdiff
Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (require 'ztree-util)
16 #@60 Mark files as different if their permissions are different
17 (defvar ztree-diff-consider-file-permissions nil (#$ . 430))
18 #@192 Command-line options for the diff program used as a diff backend. These options are added to default '-q' option.
19 Should be a list of strings.
20 Example:
21 (setq ztree-diff-options '("-w" "-i"))
22 (defvar ztree-diff-additional-options nil (#$ . 557))
23 #@75 Function which determines if the node should be excluded from comparison.
24 (defvar ztree-diff-model-ignore-fun nil (#$ . 808))
25 (make-variable-buffer-local 'ztree-diff-model-ignore-fun)
26 #@79 Function which should be called whenever the progress indications is updated.
27 (defvar ztree-diff-model-progress-fun nil (#$ . 998))
28 (make-variable-buffer-local 'ztree-diff-model-progress-fun)
29 #@22 Update the progress.
30 (defalias 'ztree-diff-model-update-progress #[0 "\205 \207" [ztree-diff-model-progress-fun] 1 (#$ . 1196)])
31 #@74 compiler-macro for inlining `ztree-diff-node-p'.
32
33 (fn CL-WHOLE-ARG CL-X)
34 (defalias 'ztree-diff-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-p (and (memq (type-of cl-x) cl-struct-ztree-diff-node-tags) t)) nil] 9 (#$ . 1335)])
35 (put 'ztree-diff-node-p 'compiler-macro 'ztree-diff-node-p--cmacro)
36 #@13 
37
38 (fn CL-X)
39 (defalias 'ztree-diff-node-p #[257 "\301!>\205    \302\207" [cl-struct-ztree-diff-node-tags type-of t] 3 (#$ . 1699)])
40 (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put ztree-diff-node-p side-effect-free error-free put ztree-diff-node cl-deftype-satisfies] 5)
41 #@79 compiler-macro for inlining `ztree-diff-node-parent'.
42
43 (fn CL-WHOLE-ARG CL-X)
44 (defalias 'ztree-diff-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-parent (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 1993)])
45 (put 'ztree-diff-node-parent 'compiler-macro 'ztree-diff-node-parent--cmacro)
46 #@327 Access slot "parent" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X.
47
48 (fn CL-X)
49 (defalias 'ztree-diff-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 1] 5 (#$ . 2425)])
50 (byte-code "\300\301\302\303#\300\207" [function-put ztree-diff-node-parent side-effect-free t] 4)
51 #@82 compiler-macro for inlining `ztree-diff-node-left-path'.
52
53 (fn CL-WHOLE-ARG CL-X)
54 (defalias 'ztree-diff-node-left-path--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-left-path (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 3048)])
55 (put 'ztree-diff-node-left-path 'compiler-macro 'ztree-diff-node-left-path--cmacro)
56 #@330 Access slot "left-path" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X.
57
58 (fn CL-X)
59 (defalias 'ztree-diff-node-left-path #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 2] 5 (#$ . 3495)])
60 (byte-code "\300\301\302\303#\300\207" [function-put ztree-diff-node-left-path side-effect-free t] 4)
61 #@83 compiler-macro for inlining `ztree-diff-node-right-path'.
62
63 (fn CL-WHOLE-ARG CL-X)
64 (defalias 'ztree-diff-node-right-path--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-right-path (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 4127)])
65 (put 'ztree-diff-node-right-path 'compiler-macro 'ztree-diff-node-right-path--cmacro)
66 #@331 Access slot "right-path" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X.
67
68 (fn CL-X)
69 (defalias 'ztree-diff-node-right-path #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 3] 5 (#$ . 4579)])
70 (byte-code "\300\301\302\303#\300\207" [function-put ztree-diff-node-right-path side-effect-free t] 4)
71 #@83 compiler-macro for inlining `ztree-diff-node-short-name'.
72
73 (fn CL-WHOLE-ARG CL-X)
74 (defalias 'ztree-diff-node-short-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-short-name (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 5214)])
75 (put 'ztree-diff-node-short-name 'compiler-macro 'ztree-diff-node-short-name--cmacro)
76 #@331 Access slot "short-name" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X.
77
78 (fn CL-X)
79 (defalias 'ztree-diff-node-short-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 4] 5 (#$ . 5666)])
80 (byte-code "\300\301\302\303#\300\207" [function-put ztree-diff-node-short-name side-effect-free t] 4)
81 #@89 compiler-macro for inlining `ztree-diff-node-right-short-name'.
82
83 (fn CL-WHOLE-ARG CL-X)
84 (defalias 'ztree-diff-node-right-short-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-right-short-name (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 6301)])
85 (put 'ztree-diff-node-right-short-name 'compiler-macro 'ztree-diff-node-right-short-name--cmacro)
86 #@337 Access slot "right-short-name" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X.
87
88 (fn CL-X)
89 (defalias 'ztree-diff-node-right-short-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 5] 5 (#$ . 6783)])
90 (byte-code "\300\301\302\303#\300\207" [function-put ztree-diff-node-right-short-name side-effect-free t] 4)
91 #@81 compiler-macro for inlining `ztree-diff-node-children'.
92
93 (fn CL-WHOLE-ARG CL-X)
94 (defalias 'ztree-diff-node-children--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-children (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 7436)])
95 (put 'ztree-diff-node-children 'compiler-macro 'ztree-diff-node-children--cmacro)
96 #@329 Access slot "children" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X.
97
98 (fn CL-X)
99 (defalias 'ztree-diff-node-children #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 6] 5 (#$ . 7878)])
100 (byte-code "\300\301\302\303#\300\207" [function-put ztree-diff-node-children side-effect-free t] 4)
101 #@82 compiler-macro for inlining `ztree-diff-node-different'.
102
103 (fn CL-WHOLE-ARG CL-X)
104 (defalias 'ztree-diff-node-different--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-different (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 8507)])
105 (put 'ztree-diff-node-different 'compiler-macro 'ztree-diff-node-different--cmacro)
106 #@330 Access slot "different" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X.
107
108 (fn CL-X)
109 (defalias 'ztree-diff-node-different #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 7] 5 (#$ . 8954)])
110 (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put ztree-diff-node-different side-effect-free t defalias copy-ztree-diff-node copy-sequence] 4)
111 #@158 compiler-macro for inlining `make-ztree-diff-node'.
112
113 (fn CL-WHOLE &cl-quote &key PARENT LEFT-PATH RIGHT-PATH SHORT-NAME RIGHT-SHORT-NAME CHILDREN DIFFERENT)
114 (defalias 'make-ztree-diff-node--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y\211@\310>\203A\211AA\262\202.\311    >A@\203P\312\262\202.\313\314@\"\210\202.\210\315\316\317\312\f\312\f\f\f\f\f\f\f&\f\207" [plist-member :parent :left-path :right-path :short-name :right-short-name :children :different (:parent :left-path :right-path :short-name :right-short-name :children :different :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:parent :left-path :right-path :short-name :right-short-name :children :different)" cl--defsubst-expand (parent left-path right-path short-name right-short-name children different) (cl-block make-ztree-diff-node (record 'ztree-diff-node parent left-path right-path short-name right-short-name children different))] 22 (#$ . 9641)])
115 (put 'make-ztree-diff-node 'compiler-macro 'make-ztree-diff-node--cmacro)
116 #@138 Constructor for objects of type `ztree-diff-node'.
117
118 (fn &key PARENT LEFT-PATH RIGHT-PATH SHORT-NAME RIGHT-SHORT-NAME CHILDREN DIFFERENT)
119 (defalias 'make-ztree-diff-node #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y\211@\310>\203A\211AA\262\202.\311    >A@\203P\312\262\202.\313\314@\"\210\202.\210\315\316&\207" [plist-member :parent :left-path :right-path :short-name :right-short-name :children :different (:parent :left-path :right-path :short-name :right-short-name :children :different :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:parent :left-path :right-path :short-name :right-short-name :children :different)" record ztree-diff-node] 17 (#$ . 10764)])
120 (byte-code "\300\301\302\303#\300\207" [function-put make-ztree-diff-node side-effect-free t] 4)
121 #@96 Constructor for objects of type `ztree-diff-node'.
122
123 (fn PARENT LEFT-PATH RIGHT-PATH DIFFERENT)
124 (defalias 'ztree-diff-node-create #[1028 "\300\206!\203\203\300!\202\211\301\302\303\n&\207" [ztree-file-short-name record ztree-diff-node nil] 15 (#$ . 11652)])
125 (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&    \207" [function-put ztree-diff-node-create side-effect-free t cl-struct-define ztree-diff-node nil cl-structure-object record ((cl-tag-slot) (parent) (left-path) (right-path) (short-name) (right-short-name) (children) (different)) cl-struct-ztree-diff-node-tags] 11)
126 #@78 Determine if the NODE should be excluded from comparison results.
127
128 (fn NODE)
129 (defalias 'ztree-diff-model-ignore-p #[257 "\205!\207" [ztree-diff-model-ignore-fun] 3 (#$ . 12278)])
130 #@66 Construct the string with contents of the NODE given.
131
132 (fn NODE)
133 (defalias 'ztree-diff-node-to-string #[257 "\301\302!>\204\303\304\305D\"\210\306H\307\211\203R\211@\310\302!>\204,\303\304\305D\"\210\311H\312\302!>\204C\303\304\305D\"\210\313H!\260\262A\266\202\202\210\314\302!>\204d\303\304\305D\"\210\311H\315\316\302    !>\204|\303\304\305 D\"\210\317H!\315\320    \302\f!>\204\226\303\304\305D\"\210 \313H!\315\321\f\302!>\204\260\303\304\305D\"\210\322H!\315\323\302!>\204\312\303\304\305D\"\210\324H!\315\325\315\260\207" [cl-struct-ztree-diff-node-tags #[257 "\211\203=\211;\203\n\207\211\301=\203\302\207\211\303=\203\304\207\211\305=\203\"\306\207\211\307=\203*\310\207\311!>\2049\312\313\314D\"\210\211\315H\207\316\207" [cl-struct-ztree-diff-node-tags new "new" diff "different" ignore "ignored" same "same" type-of signal wrong-type-argument ztree-diff-node 4 "(empty)"] 5 "\n\n(fn X)"] type-of signal wrong-type-argument ztree-diff-node 6 "" "\n   * " 4 ": " 7 "Node: " "\n" " * Parent: " 1 " * Status: " " * Left path: " 2 " * Right path: " 3 " * Children: "] 22 (#$ . 12468)])
134 #@121 Return the short name of the NODE given.
135 If the RIGHT-SIDE is true, take the right leaf
136
137 (fn NODE &optional RIGHT-SIDE)
138 (defalias 'ztree-diff-node-short-name-wrapper #[513 "\211\204\301!>\204\302\303\304D\"\210\305H\207\301!>\204&\302\303\304D\"\210\306H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 4 5] 6 (#$ . 13645)])
139 #@51 Determines if the NODE is a directory.
140
141 (fn NODE)
142 (defalias 'ztree-diff-node-is-directory #[257 "\301!>\204\302\303\304D\"\210\211\305H\301!>\204!\302\303\304D\"\210\306H\203.\307!\2021\307!\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 2 3 file-directory-p] 6 (#$ . 14029)])
143 #@181 Determine the side there the file is present for NODE.
144 Return BOTH if the file present on both sides;
145 LEFT if only on the left side and
146 RIGHT if only on the right side.
147
148 (fn NODE)
149 (defalias 'ztree-diff-node-side #[257 "\301!>\204\302\303\304D\"\210\211\305H\301!>\204!\302\303\304D\"\210\306H\2030\211\2030\307\2029\2038\310\2029\311\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 2 3 both left right] 6 (#$ . 14369)])
150 #@60 Determines if NODE1 and NODE2 are equal.
151
152 (fn NODE1 NODE2)
153 (defalias 'ztree-diff-node-equal #[514 "\301!>\204\302\303\304D\"\210\305H\301!>\204!\302\303\304D\"\210\305H\230\205u\301!>\2047\302\303\304D\"\210\306H\301!>\204I\302\303\304D\"\210\306H\230\205u\301!>\204_\302\303\304D\"\210\307H\301!>\204q\302\303\304D\"\210\307H\230\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 4 2 3] 7 (#$ . 14852)])
154 #@90 Compare files FILE1 and FILE2 using external diff.
155 Returns t if equal.
156
157 (fn FILE1 FILE2)
158 (defalias 'ztree-diff-model-files-equal #[514 "\303\"\204 \304\305!\210\306!\306!\307\310!8\307\310!8U\203H\2031\311\310!8\311\310!8\230\203H\312\313    \314\211\211\315\316\n\n\nD\"B&\317U\204L\320\202M\321\207" [ztree-diff-consider-file-permissions diff-command ztree-diff-additional-options ztree-same-host-p error "Compared files are not on the same host" ztree-untrampify-filename 7 file-attributes 8 apply process-file nil "-q" append 0 diff same] 15 (#$ . 15334)])
159 #@91 Return the list of full paths of files in a directory DIR.
160 Filters out . and ..
161
162 (fn DIR)
163 (defalias 'ztree-directory-files #[257 "\300\301\302\303\"\"\207" [ztree-filter #[257 "\300!\211\301\230\206\f\211\302\230?\207" [ztree-file-short-name "." ".."] 4 "\n\n(fn FILE)"] directory-files full] 6 (#$ . 15916)])
164 #@111 Rescan the NODE.
165 The node is a either a file or directory with both
166 left and right parts existing.
167
168 (fn NODE)
169 (defalias 'ztree-diff-model-partial-rescan #[257 "\301!\203 \302!\210\202\277\303!>\204\304\305\306D\"\210\211\211\307\310!\204\217\311\303!>\2046\304\305\306D\"\210\307H\312\"\204\217\311\303\211!>\204Q\304\305\306D\"\210\313H!>\204u\304\305\306\303!>\204n\304\305\306\nD\"\210\313HD\"\210\303!>\204\205\304\305\306D\"\210\313H\307H\312\"\203\223\312\202\274\314\303!>\204\244\304\305\306D\"\210\315H\303!>\204\270\304\305\306D\"\210\316H\"I\266\317!\207" [cl-struct-ztree-diff-node-tags ztree-diff-node-is-directory ztree-diff-node-recreate type-of signal wrong-type-argument ztree-diff-node 7 ztree-diff-model-ignore-p eql ignore 1 ztree-diff-model-files-equal 2 3 ztree-diff-node-update-all-parents-diff] 12 (#$ . 16236)])
170 #@197 Create a subtree with given PARENT for the given PATH.
171 Argument SIDE either `left' or `right' side.
172 Argument DIFF different status to be assigned to all created nodes.
173
174 (fn PARENT PATH SIDE DIFF)
175 (defalias 'ztree-diff-model-subtree #[1028 "\301!\302\211\203p\211@\303!\203O\304\305=\205\306=\205$$\307        $\310!>\204>\311\312\313D\"\210\211\314I\266B\262\266\202i\304\305=\205Z\306=\205b$B\262A\266\202\202\210\207" [cl-struct-ztree-diff-node-tags ztree-directory-files nil file-directory-p ztree-diff-node-create left right ztree-diff-model-subtree type-of signal wrong-type-argument ztree-diff-node 6] 14 (#$ . 17137)])
176 #@68 Set the diff status for the NODE based on its children.
177
178 (fn NODE)
179 (defalias 'ztree-diff-node-update-diff-from-children #[257 "\301\302!>\204\303\304\305D\"\210\306H\307\"?\205K\310\311\302!>\204*\303\304\305D\"\210\312H\313\314\315\316&\302!>\204B\303\304\305D\"\210\211\306I\262\262\207" [cl-struct-ztree-diff-node-tags eql type-of signal wrong-type-argument ztree-diff-node 7 ignore cl-reduce ztree-diff-model-update-diff 6 :initial-value same :key ztree-diff-node-different] 8 (#$ . 17814)])
180 #@69 Recursively update all parents diff status for the NODE.
181
182 (fn NODE)
183 (defalias 'ztree-diff-node-update-all-parents-diff #[257 "\211\301!>\204\302\303\304D\"\210\211\305H\211\262\205 \306!\210\202\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 1 ztree-diff-node-update-diff-from-children] 6 (#$ . 18337)])
184 #@118 Get the diff status depending if OLD or NEW is not nil.
185 If the OLD is `ignore', do not change anything
186
187 (fn OLD NEW)
188 (defalias 'ztree-diff-model-update-diff #[514 "\300\301\"\203    \301\207\300\301\"\203\207\300\302\"\204 \300\302\"\203\"\302\207\300\303\"\203+\303\207\207" [eql ignore diff new] 5 (#$ . 18699)])
189 #@193 Recursively update diff status of all children of NODE.
190 This function will traverse through all children recursively
191 setting status from the NODE, unless they have an ignore status
192
193 (fn NODE)
194 (defalias 'ztree-diff-node-update-diff-from-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\301!>\204!\302\303\304D\"\210\306H\307\310\311\312\313\314!\315\"\306\316%\"\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 7 6 mapc make-byte-code 257 "\302\300\303\"\204'\302\300\303\"\206#\302\304!    >\204\305\306\307D\"\210\310H\303\"?\205@\304!    >\2046\305\306\307D\"\210\211\211\310\300I\266\311!\207" vconcat vector [cl-struct-ztree-diff-node-tags eql ignore type-of signal wrong-type-argument ztree-diff-node 7 ztree-diff-node-update-diff-from-parent] "\n\n(fn CHILD)"] 10 (#$ . 19031)])
195 #@141 Find in LIST of files the file with name SHORTNAME.
196 If IS-DIR searching for directories; assume files otherwise
197
198 (fn LIST SHORTNAME IS-DIR)
199 (defalias 'ztree-diff-model-find-in-files #[771 "\300\301\302\303\304\305\"\306\"\307\310%\"\207" [ztree-find make-byte-code 257 "\302!\300\230\205 \301\303!=\207" vconcat vector [ztree-file-short-name file-directory-p] 4 "\n\n(fn X)"] 12 (#$ . 19887)])
200 #@164 Determine if the NODE and its children should be ignored.
201 If no parent - never ignore;
202 if in ignore list - ignore
203 if parent has ignored status - ignore
204
205 (fn NODE)
206 (defalias 'ztree-diff-model-should-ignore #[257 "\301!>\204\302\303\304D\"\210\211\305H\211\2051\306\301!>\204&\302\303\304D\"\210\307H\310\"\2061\311!\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 1 eql 7 ignore ztree-diff-model-ignore-p] 7 (#$ . 20296)])
207 #@83 Traverse 2 paths defined in the NODE updating its children and status.
208
209 (fn NODE)
210 (defalias 'ztree-diff-node-recreate #[257 "\301\302!>\204\303\304\305D\"\210\306H!\301\302!>\204$\303\304\305D\"\210\307H!\310!\211\2033\311\2024\312\313\314 \210\203T\302!>\204M\303\304\305D\"\210\211\315\311I\266\211\203,\211@\316!\317!\320#\321 \n$\310!\203\213\302!>\204\204\303\304\305D\"\210\211\211\315\311I\266\203\230\322 \323\324$\262\n\203\323\204\323\302!>\204\257\303\304\305D\"\210\211\211\325\326    \327\302!>\204\310\303\304\305\nD\"\210\315H$I\266\202\203\204\330\302!>\204\353\303\304\305D\"\210\315H\311\"\204\302!>\204\303\304\305D\"\210\211\211\315\331\"I\266\202\203\203\332!\210\211B\262\266A\266\202\202U\210\211\203\235\211@\317!\321    \313$\310!\203[\302!>\204T\303\304\305D\"\210\211\211\315\311I\266\203\217\302!>\204n\303\304\305D\"\210\211\211\325\326\333\302!>\204\207\303\304\305\nD\"\210\315H$I\266\211B\262\266A\266\202\202.\210\204\302\302!>\204\263\303\304\305D\"\210\211\315\334\335\336\337\340\341&I\266\302!>\204\323\303\304\305D\"\210\211\325I\262\207" [cl-struct-ztree-diff-node-tags ztree-directory-files type-of signal wrong-type-argument ztree-diff-node 2 3 ztree-diff-model-should-ignore ignore new nil ztree-diff-model-update-progress 7 ztree-file-short-name file-directory-p ztree-diff-model-find-in-files ztree-diff-node-create cl-delete :test string-equal 6 ztree-diff-model-subtree left eql ztree-diff-model-files-equal ztree-diff-node-recreate right cl-reduce ztree-diff-model-update-diff :initial-value same :key ztree-diff-node-different] 23 (#$ . 20777)])
211 #@30 Refresh the NODE.
212
213 (fn NODE)
214 (defalias 'ztree-diff-model-update-node #[257 "\300!\207" [ztree-diff-node-recreate] 3 (#$ . 22533)])
215 #@212 Set the buffer-local ignore function to IGNORE-P.
216 Ignore function is a function of one argument (ztree-diff-node)
217 which returns t if the node should be ignored (like files starting
218 with dot etc).
219
220 (fn IGNORE-P)
221 (defalias 'ztree-diff-model-set-ignore-fun #[257 "\211\211\207" [ztree-diff-model-ignore-fun] 3 (#$ . 22672)])
222 #@171 Setter for the buffer-local PROGRESS-FUN callback.
223 This callback is called to indicate the ongoing activity.
224 Callback is a function without arguments.
225
226 (fn PROGRESS-FUN)
227 (defalias 'ztree-diff-model-set-progress-fun #[257 "\211\211\207" [ztree-diff-model-progress-fun] 3 (#$ . 23002)])
228 (provide 'ztree-diff-model)