mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 434b46beff1c5ec01cbefd5273d89971a82d6bab
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 (byte-code "\300\301!\210\300\302!\207" [require ztree-view ztree-diff-model] 2)
16 #@86 Hidden files regexp.
17 By default all filest starting with dot `.', including . and ..
18 (defconst ztree-diff-hidden-files-regexp "^\\." (#$ . 489))
19 (custom-declare-face 'ztreep-diff-header-face '((((type tty pc) (class color)) :foreground "lightblue" :weight bold) (((background dark)) (:height 1.2 :foreground "lightblue" :weight bold)) (t :height 1.2 :foreground "darkblue" :weight bold)) "*Face used for the header in Ztree Diff buffer." :group 'Ztree-diff :group 'font-lock-highlighting-faces)
20 (defvar ztreep-diff-header-face 'ztreep-diff-header-face)
21 (custom-declare-face 'ztreep-diff-header-small-face '((((type tty pc) (class color)) :foreground "lightblue" :weight bold) (((background dark)) (:foreground "lightblue" :weight bold)) (t :weight bold :foreground "darkblue")) "*Face used for the header in Ztree Diff buffer." :group 'Ztree-diff :group 'font-lock-highlighting-faces)
22 (defvar ztreep-diff-header-small-face 'ztreep-diff-header-small-face)
23 (custom-declare-face 'ztreep-diff-model-diff-face '((t (:foreground "red"))) "*Face used for different files in Ztree-diff." :group 'Ztree-diff :group 'font-lock-highlighting-faces)
24 (defvar ztreep-diff-model-diff-face 'ztreep-diff-model-diff-face)
25 (custom-declare-face 'ztreep-diff-model-add-face '((t (:foreground "blue"))) "*Face used for added files in Ztree-diff." :group 'Ztree-diff :group 'font-lock-highlighting-faces)
26 (defvar ztreep-diff-model-add-face 'ztreep-diff-model-add-face)
27 (custom-declare-face 'ztreep-diff-model-ignored-face '((((type tty pc) (class color) (min-colors 256)) :foreground "#2f2f2f") (((type tty pc) (class color) (min-colors 8)) :foreground "white") (t (:foreground "#7f7f7f" :strike-through t))) "*Face used for non-modified files in Ztree-diff." :group 'Ztree-diff :group 'font-lock-highlighting-faces)
28 (defvar ztreep-diff-model-ignored-face 'ztreep-diff-model-ignored-face)
29 (custom-declare-face 'ztreep-diff-model-normal-face '((((type tty pc) (class color) (min-colors 8)) :foreground "white") (t (:foreground "#7f7f7f"))) "*Face used for non-modified files in Ztree-diff." :group 'Ztree-diff :group 'font-lock-highlighting-faces)
30 (defvar ztreep-diff-model-normal-face 'ztreep-diff-model-normal-face)
31 #@101 List of regexp file names to filter out.
32 By default paths starting with dot (like .git) are ignored
33 (defvar ztree-diff-filter-list (list ztree-diff-hidden-files-regexp) (#$ . 2689))
34 (make-variable-buffer-local 'ztree-diff-filter-list)
35 #@67 Pair of the directories stored.  Used to perform the full rescan.
36 (defvar ztree-diff-dirs-pair nil (#$ . 2930))
37 (make-variable-buffer-local 'ztree-diff-dirs-pair)
38 #@52 Show or not equal files/directories on both sides.
39 (defvar ztree-diff-show-equal-files t (#$ . 3099))
40 (make-variable-buffer-local 'ztree-diff-show-equal-files)
41 #@43 Show or not files from the filtered list.
42 (defvar ztree-diff-show-filtered-files nil (#$ . 3265))
43 (make-variable-buffer-local 'ztree-diff-show-filtered-files)
44 #@53 Show or not orphan files/directories on right side.
45 (defvar ztree-diff-show-right-orphan-files t (#$ . 3430))
46 (make-variable-buffer-local 'ztree-diff-show-right-orphan-files)
47 #@52 Show or not orphan files/directories on left side.
48 (defvar ztree-diff-show-left-orphan-files t (#$ . 3611))
49 (make-variable-buffer-local 'ztree-diff-show-left-orphan-files)
50 #@51 Message showing while constructing the diff tree.
51 (defvar ztree-diff-wait-message nil (#$ . 3789))
52 (make-variable-buffer-local 'ztree-diff-wait-message)
53 #@168 Window configurations prior to calling `ediff'.
54 A queue of window configurations, allowing
55 to restore last configuration even if there were a couple of ediff sessions
56 (defvar ztree-diff-ediff-previous-window-configurations nil (#$ . 3949))
57 #@97 Non-nil if ZtreeDiff mode is enabled.
58 Use the command `ztreediff-mode' to change this variable.
59 (defvar ztreediff-mode nil (#$ . 4195))
60 (make-variable-buffer-local 'ztreediff-mode)
61 #@101 A minor mode for displaying the difference of the directory trees in text mode.
62
63 (fn &optional ARG)
64 (defalias 'ztreediff-mode #[256 "\301 \302=\203 ?\202\303!\304V\305\306\203\307\202\310\"\210\311\312!\203B\301 \2032\211\301 \232\203B\313\314\315\203=\316\202>\317#\266\210\320 \210\207" [ztreediff-mode current-message toggle prefix-numeric-value 0 run-hooks ztreediff-mode-hook ztreediff-mode-on-hook ztreediff-mode-off-hook called-interactively-p any " in current buffer" message "ZtreeDiff mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 4383) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
65 (defvar ztreediff-mode-hook nil)
66 (byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [ztreediff-mode-hook variable-documentation put "Hook run after entering or leaving `ztreediff-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)"] 4)
67 #@30 Keymap for `ztreediff-mode'.
68 (defvar ztreediff-mode-map (byte-code "\300\301B\302\303B\304\305B\306\307B\310\311B\312\313B\314\315B\316\317B\320BBBBBBBB\321!\203+\211\202:\211<\2036\322!\202:\323\324\"\207" ["C" ztree-diff-copy "h" ztree-diff-toggle-show-equal-files "H" ztree-diff-toggle-show-filtered-files "D" ztree-diff-delete-file "v" ztree-diff-view-file "d" ztree-diff-simple-diff-files "r" ztree-diff-partial-rescan "R" ztree-diff-full-rescan (([f5] . ztree-diff-full-rescan)) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 9) (#$ . 5359))
69 (byte-code "\301\302\303\304\211%\207" [ztreediff-mode-map add-minor-mode ztreediff-mode " Diff" nil] 6)
70 #@67 Return the face for the NODE depending on diff status.
71
72 (fn NODE)
73 (defalias 'ztree-diff-node-face #[257 "\305!>\204\306\307\310D\"\210\211\311H\211\312\267\202(    \202)\n\202) \202)\f\202)\313\207" [cl-struct-ztree-diff-node-tags ztreep-diff-model-ignored-face ztreep-diff-model-diff-face ztreep-diff-model-add-face ztreep-diff-model-normal-face type-of signal wrong-type-argument ztree-diff-node 7 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ignore 24 diff 28 new 32 same 36)) nil] 5 (#$ . 6039)])
74 #@40 Insert the header to the ztree buffer.
75 (defalias 'ztree-diff-insert-buffer-header #[0 "\306\307\"\210\310c\210    \203\"\306\311    @P\n\"\210\310c\210\306\312    AP\n\"\210\310c\210\306\313\n\"\210\310c\210\306\314 \"\210\306\315\n\"\210\310c\210\306\316\f\"\210\306\317\n\"\210\310c\210\306\320 \"\210\306\321\n\"\210\322c\210\306\323\"\210\306\324\n\"\210\310c\210\306\325\"\210\310c\207" [ztreep-diff-header-face ztree-diff-dirs-pair ztreep-diff-header-small-face ztreep-diff-model-normal-face ztreep-diff-model-add-face ztreep-diff-model-diff-face ztree-insert-with-face "Differences tree" "\n" "Left:  " "Right: " "Legend:" " Normal file " "- same on both sides" " Orphan file " "- does not exist on other side" " Mismatch file " "- different from other side" "\n " "Ignored file" " - ignored from comparison" "==============" ztreep-diff-model-ignored-face] 3 (#$ . 6594)])
76 #@43 Force full rescan of the directory trees.
77 (defalias 'ztree-diff-full-rescan #[0 "\205\301\302\303!!\205\304@A\"\207" [ztree-diff-dirs-pair yes-or-no-p format "Force full rescan?" ztree-diff] 3 (#$ . 7477) nil])
78 #@64 Return the NODE if both left and right sides exist.
79
80 (fn NODE)
81 (defalias 'ztree-diff-existing-common #[257 "\301!>\204\302\303\304D\"\210\211\305H\301!>\204!\302\303\304D\"\210\306H\2059\211\2059\307!\2059\307!\2059\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 2 3 file-exists-p] 6 (#$ . 7701)])
82 #@87 Return the first node in up in hierarchy of the NODE which has both sides.
83
84 (fn NODE)
85 (defalias 'ztree-diff-existing-common-parent #[257 "\301!\211\203 \211\202\302\303!>\204\304\305\306D\"\210\307H!\207" [cl-struct-ztree-diff-node-tags ztree-diff-existing-common ztree-diff-existing-common-parent type-of signal wrong-type-argument ztree-diff-node 1] 7 (#$ . 8064)])
86 #@36 Partly rescan the NODE.
87
88 (fn NODE)
89 (defalias 'ztree-diff-do-partial-rescan #[257 "\302!\303!>\204\304\305\306D\"\210\211\307H\211\204&    \205K\310    @    A\"\202K\311\312\303!>\2048\304\305\306D\"\210\313H\314Q!\210\315!\210\316\317!\210\320\321 !\207" [cl-struct-ztree-diff-node-tags ztree-diff-dirs-pair ztree-diff-existing-common-parent type-of signal wrong-type-argument ztree-diff-node 1 ztree-diff ztree-diff-update-wait-message "Updating " 4 " ..." ztree-diff-model-partial-rescan message "Done" ztree-refresh-buffer line-number-at-pos] 9 (#$ . 8448)])
90 #@45 Perform partial rescan on the current node.
91 (defalias 'ztree-diff-partial-rescan #[0 "\300 \211\205\n\301@!\207" [ztree-find-node-at-point ztree-diff-do-partial-rescan] 3 (#$ . 9023) nil])
92 #@142 Create a simple diff buffer for files from left and right panels.
93 Argument NODE node containing paths to files to call a diff on.
94
95 (fn NODE)
96 (defalias 'ztree-diff-simple-diff #[257 "\302!>\204\303\304\305D\"\210\211\306H\302!>\204!\303\304\305D\"\210\307H\205:\211\205:\310!?\205:\311\312\")\207" [cl-struct-ztree-diff-node-tags split-width-threshold type-of signal wrong-type-argument ztree-diff-node 2 3 file-directory-p nil diff] 6 (#$ . 9221)])
97 #@67 Create a simple diff buffer for files from left and right panels.
98 (defalias 'ztree-diff-simple-diff-files #[0 "\300 \211\205 \211@\301!\262\207" [ztree-find-node-at-point ztree-diff-simple-diff] 4 (#$ . 9694) nil])
99 #@118 Hook function for `ediff-before-setup-hook'.
100
101 See the Info node `(ediff) hooks'.
102
103 This hook function removes itself.
104 (defalias 'ztree-diff-ediff-before-setup-hook-function #[0 "\301 B\302 \210\303\304\305\"\207" [ztree-diff-ediff-previous-window-configurations current-window-configuration ztree-save-current-position remove-hook ediff-before-setup-hook ztree-diff-ediff-before-setup-hook-function] 3 (#$ . 9919)])
105 #@110 Hook function for `ediff-quit-hook'.
106
107 See the Info node `(ediff) hooks'.
108
109 This hook function removes itself.
110 (defalias 'ztree-diff-ediff-quit-hook-function #[0 "\301\211A\242!\210\302 \210\303\304\305\"\207" [ztree-diff-ediff-previous-window-configurations set-window-configuration ztree-refresh-buffer remove-hook ediff-quit-hook ztree-diff-ediff-quit-hook-function] 3 (#$ . 10343)])
111 #@166 Ediff that cleans up after itself.
112
113 Ediff-related buffers are killed and the pre-Ediff window
114 configuration is restored.
115
116 (fn FILE-A FILE-B &optional STARTUP-HOOKS)
117 (defalias 'ztree-diff-ediff #[770 "\300\301\302\"\210\300\303\304\305#\210\306#\207" [add-hook ediff-before-setup-hook ztree-diff-ediff-before-setup-hook-function ediff-quit-hook ztree-diff-ediff-quit-hook-function t ediff] 7 (#$ . 10737)])
118 #@259 Perform action on NODE:
119 1 if both left and right sides present:
120    1.1 if they are differend
121       1.1.1 if HARD ediff
122       1.1.2 simple diff otherwiste
123    1.2 if they are the same - view left
124 2 if left or right present - view left or rigth
125
126 (fn NODE HARD)
127 (defalias 'ztree-diff-node-action #[514 "\301 \210\302!>\204\303\304\305D\"\210\306H\302!>\204$\303\304\305D\"\210\307H\310\203b\203b\311\302!>\204B\303\304\305D\"\210\312H\313\"\203Q\211\"\202y\203\\\314\"\202y\315!\202y\203m\211\"\202y\203x\211\"\202y\316\207" [cl-struct-ztree-diff-node-tags ztree-save-current-position type-of signal wrong-type-argument ztree-diff-node 2 3 #[514 "\203\301!\207\302\303!)\207" [split-width-threshold find-file nil view-file-other-window] 4 "\n\n(fn HARD PATH)"] eql 7 same ztree-diff-ediff ztree-diff-simple-diff nil] 10 (#$ . 11153)])
128 #@205 Update the NODE status and copy the file.
129 File copied from SOURCE-PATH to DESTINATION-PATH.
130 COPY-TO-RIGHT specifies which side of the NODE to update.
131
132 (fn NODE SOURCE-PATH DESTINATION-PATH COPY-TO-RIGHT)
133 (defalias 'ztree-diff-copy-file #[1028 "\301!\302\303!!P\3041\305\306\211$\210\3070\202\211\262\211\203*\310\311\3128P!\202\233\313!>\204;\314\315\316D\"\210\317H\320=\204[\313!>\204T\314\315\316D\"\210\211\317\321I\266\203z\313!>\204p\314\315\316D\"\210\211\322I\266\202\222\313!>\204\213\314\315\316D\"\210\211\312I\266\323!\210\324\325 !\262\207" [cl-struct-ztree-diff-node-tags file-name-as-directory file-name-nondirectory directory-file-name (error) copy-file t nil message "Error: " 2 type-of signal wrong-type-argument ztree-diff-node 7 ignore same 3 ztree-diff-node-update-all-parents-diff ztree-refresh-buffer line-number-at-pos] 10 (#$ . 12040)])
134 #@215 Update the NODE status and copy the directory.
135 Directory copied from SOURCE-PATH to DESTINATION-PATH.
136 COPY-TO-RIGHT specifies which side of the NODE to update.
137
138 (fn NODE SOURCE-PATH DESTINATION-PATH COPY-TO-RIGHT)
139 (defalias 'ztree-diff-copy-dir #[1028 "\301!\301!\211\302\303!!P\3041\305\306\211$\210\3070\202!\211\262\211\2034\310\311A@P!\210\312!\202\236\310!\210\203X\313!>\204M\314\315\316\nD\"\210\211\317I\266\202q\313!>\204i\314\315\316\nD\"\210\211\320I\266\321\322\313\n!>\204\204\314\315\316\fD\"\210    \323H\324Q!\210\325!\210\310\326!\210\327!\210\330\331 !\262\207" [cl-struct-ztree-diff-node-tags file-name-as-directory file-name-nondirectory directory-file-name (error) copy-directory t nil message "Error: " ztree-diff-do-partial-rescan type-of signal wrong-type-argument ztree-diff-node 3 2 ztree-diff-update-wait-message "Updating " 4 " ..." ztree-diff-model-update-node "Done." ztree-diff-node-update-all-parents-diff ztree-refresh-buffer line-number-at-pos] 14 (#$ . 12961)])
140 #@47 Copy the file under the cursor to other side.
141 (defalias 'ztree-diff-copy #[0 "\301 \211\205\361\211@A\302!\303\304!>\204\305\306\307D\"\210\310H\304!>\2041\305\306\307D\"\210\311H\312\211\304!>\204G\305\306\307\nD\"\210\313H\211\205\357\314=\203]\315=\202a\315=\262\203k\202l\262\203\207\304!>\204\201\305\306\307D\"\210\211\311H\202\231\304!>\204\226\305\306\307D\"\210\211\310H\262\205\357\205\357\316\317\320\203\257\321\202\260\322\304 !>\204\301\305\306\307D\"\210\f\323H\n\203\316\322\202\317\321%!\205\357\324!\203\347\325        $\202\357\326        $\266\211\207" [cl-struct-ztree-diff-node-tags ztree-find-node-at-point ztree-diff-node-side t type-of signal wrong-type-argument ztree-diff-node 2 3 nil 1 both left yes-or-no-p format "Copy [%s]%s to [%s]%s/ ?" "LEFT" "RIGHT" 4 file-directory-p ztree-diff-copy-dir ztree-diff-copy-file] 18 (#$ . 14008) nil])
142 #@40 View file at point, depending on side.
143 (defalias 'ztree-diff-view-file #[0 "\301 \211\205]\211@A\302!\303!>\204\304\305\306D\"\210\307H\303!>\204/\304\305\306D\"\210\310H\311=\204>=\205[\312=\203N\203N\313!\202[\314=\205[\211\205[\313!\266\205\207" [cl-struct-ztree-diff-node-tags ztree-find-node-at-point ztree-diff-node-side type-of signal wrong-type-argument ztree-diff-node 2 3 both left view-file right] 9 (#$ . 14952) nil])
144 #@35 Delete the file under the cursor.
145 (defalias 'ztree-diff-delete-file #[0 "\301 \211\205j\211@A\302!\303!>\204\304\305\306D\"\210\307H\310\311\"\2061\310\312\"\2051\310\311\"\211\203K\303!>\204E\304\305\306D\"\210\313H\202^\303!>\204[\304\305\306D\"\210\314H\205h\315\316\317\203m\320\202n\321#!\205h\322!\203~\323\202\324\303!>\204\217\304\305\306D\"\210\325H\3261\240\327\"\210\3300\202\243\211\262\211\203\275\331\332\3138P!\210\322!\203]\333    !\210\202]\310\311\"\203\311\204\325\310\334\"\203\204\303!>\204\346\304\305\306D\"\210\211\325\335\336\337\340\341\342!\343\"\344\345%\"I\266\202]\346\203    \347\202\n\350\n\303\f!>\204\304\305\306D\"\210 \325HB\"\210\310\303\n!>\2046\304\305\306\fD\"\210    \351H\352\"\204X\303    !>\204P\304\305\306 D\"\210\211\351\353I\266\354    !\210\355    !\210\356\357 !\266\203\266\206\207" [cl-struct-ztree-diff-node-tags ztree-find-node-at-point ztree-diff-node-side type-of signal wrong-type-argument ztree-diff-node 1 eql left both 2 3 yes-or-no-p format "Delete the file [%s]%s ?" "LEFT" "RIGHT" file-directory-p delete-directory delete-file 6 (error) t nil message "Error: " ztree-diff-model-partial-rescan right ztree-filter make-byte-code 257 "\301\300\"?\207" vconcat vector [ztree-diff-node-equal] 4 "\n\n(fn X)" mapc #[257 "\301!>\204\302\303\304D\"\210\211\211\305\306I\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 2 nil] 5 "\n\n(fn X)"] #[257 "\301!>\204\302\303\304D\"\210\211\211\305\306I\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 3 nil] 5 "\n\n(fn X)"] 7 ignore new ztree-diff-node-update-diff-from-parent ztree-diff-node-update-all-parents-diff ztree-refresh-buffer line-number-at-pos] 20 (#$ . 15418) nil])
146 #@140 Determine if the NODE is in filter list.
147 If the node is in the filter list it shall not be visible,
148 unless it is a parent node.
149
150 (fn NODE)
151 (defalias 'ztree-diff-node-ignore-p #[257 "\302!>\204\303\304\305D\"\210\211\306H\302!>\204!\303\304\305D\"\210\307H\2057\310    \311\312\313\314\315!\316\"\306\317%\"\207" [cl-struct-ztree-diff-node-tags ztree-diff-filter-list type-of signal wrong-type-argument ztree-diff-node 4 1 ztree-find make-byte-code 257 "\301\300\"\207" vconcat vector [string-match] "\n\n(fn RX)"] 10 (#$ . 17282)])
152 #@53 Determine if the NODE should be visible.
153
154 (fn NODE)
155 (defalias 'ztree-node-is-visible #[257 "\305!>\204\306\307\310D\"\210\211\311H\305!>\204!\306\307\310D\"\210\312H?\206f\313\314\"\206f\313\315\"\203S\305!>\204E\306\307\310D\"\210\316H\203O    \202P\n\206f\313\317\"\203^ \206f\313\320\"\205f\f\207" [cl-struct-ztree-diff-node-tags ztree-diff-show-left-orphan-files ztree-diff-show-right-orphan-files ztree-diff-show-filtered-files ztree-diff-show-equal-files type-of signal wrong-type-argument ztree-diff-node 7 1 eql diff new 2 ignore same] 6 (#$ . 17831)])
156 #@13 
157
158 (fn WHAT)
159 (defalias 'ztree-diff-define-toggle-show '(macro . #[257 "\300\301\302Q!\300\303\302Q!\304\305Q\306\307\310\311\312    DE\313\314\315\n\316BB\f\317BBBD\320BBBBBBB\207" [intern "ztree-diff-toggle-show-" "-files" "ztree-diff-show-" "Toggle visibility of the " " files/directories" defun nil (interactive) setq not message concat if ("Show " "Hide ") (" files") ((ztree-refresh-buffer))] 15 (#$ . 18423)]))
160 #@50 Toggle visibility of the equal files/directories
161 (defalias 'ztree-diff-toggle-show-equal-files #[0 "?\301\203\f\302\202 \303\304\305Q!\210\306 \207" [ztree-diff-show-equal-files message "Show " "Hide " "equal" " files" ztree-refresh-buffer] 4 (#$ . 18852) nil])
162 #@53 Toggle visibility of the filtered files/directories
163 (defalias 'ztree-diff-toggle-show-filtered-files #[0 "?\301\203\f\302\202 \303\304\305Q!\210\306 \207" [ztree-diff-show-filtered-files message "Show " "Hide " "filtered" " files" ztree-refresh-buffer] 4 (#$ . 19125) nil])
164 #@56 Toggle visibility of the left-orphan files/directories
165 (defalias 'ztree-diff-toggle-show-left-orphan-files #[0 "?\301\203\f\302\202 \303\304\305Q!\210\306 \207" [ztree-diff-show-left-orphan-files message "Show " "Hide " "left-orphan" " files" ztree-refresh-buffer] 4 (#$ . 19410) nil])
166 #@57 Toggle visibility of the right-orphan files/directories
167 (defalias 'ztree-diff-toggle-show-right-orphan-files #[0 "?\301\203\f\302\202 \303\304\305Q!\210\306 \207" [ztree-diff-show-right-orphan-files message "Show " "Hide " "right-orphan" " files" ztree-refresh-buffer] 4 (#$ . 19707) nil])
168 #@51 Toggle visibility of left and right orphan files.
169 (defalias 'ztree-diff-toggle-show-orphan-files #[0 "?\211\211\302\203\303\202\304\305P!\210\306 \207" [ztree-diff-show-left-orphan-files ztree-diff-show-right-orphan-files message "Show" "Hide" " orphan files" ztree-refresh-buffer] 4 (#$ . 20008) nil])
170 #@88 Update the wait message MSG with one more `.' progress indication.
171
172 (fn &optional MSG)
173 (defalias 'ztree-diff-update-wait-message #[256 "\211\203    \211\202\203\301P\302!\207" [ztree-diff-wait-message "." message] 3 (#$ . 20325)])
174 #@150 Create an interactive buffer with the directory tree of the path given.
175 Argument DIR1 left directory.
176 Argument DIR2 right directory.
177
178 (fn DIR1 DIR2)
179 (defalias 'ztree-diff #[514 "\203\n\302!\204\303\304\"\210\305!\204\303\306\"\210\211\203$\302!\204)\303\304\"\210\305!\2044\303\306\"\210\307\"\204?\303\310!\210\311\312\312$\313\314!>\204U\315\316\317D\"\210\320H\321\314!>\204i\315\316\317D\"\210\322H\313\260\323\324\325\326\327\330\331\332\333\334& \210\335 \210\336\337!\210\340\341!\210B\341\342\343\344\260!\210\345!\210\346\347!\210\350 \207" [cl-struct-ztree-diff-node-tags ztree-diff-dirs-pair file-directory-p error "Path %s is not a directory" file-exists-p "Path %s does not exist" ztree-same-host-p "Compared directories are not on the same host" ztree-diff-node-create nil "*" type-of signal wrong-type-argument ztree-diff-node 4 " <--> " 5 ztree-view ztree-node-is-visible ztree-diff-insert-buffer-header ztree-diff-node-short-name-wrapper ztree-diff-node-is-directory ztree-diff-node-equal ztree-diff-node-children ztree-diff-node-face ztree-diff-node-action ztree-diff-node-side ztreediff-mode ztree-diff-model-set-ignore-fun ztree-diff-node-ignore-p ztree-diff-model-set-progress-fun ztree-diff-update-wait-message "Comparing " " and " " ..." ztree-diff-node-recreate message "Done." ztree-refresh-buffer] 16 (#$ . 20570) "DLeft directory \nDRight directory "])
180 (provide 'ztree-diff)