;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require ztree-view ztree-diff-model] 2) #@86 Hidden files regexp. By default all filest starting with dot `.', including . and .. (defconst ztree-diff-hidden-files-regexp "^\\." (#$ . 489)) (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) (defvar ztreep-diff-header-face 'ztreep-diff-header-face) (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) (defvar ztreep-diff-header-small-face 'ztreep-diff-header-small-face) (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) (defvar ztreep-diff-model-diff-face 'ztreep-diff-model-diff-face) (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) (defvar ztreep-diff-model-add-face 'ztreep-diff-model-add-face) (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) (defvar ztreep-diff-model-ignored-face 'ztreep-diff-model-ignored-face) (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) (defvar ztreep-diff-model-normal-face 'ztreep-diff-model-normal-face) #@101 List of regexp file names to filter out. By default paths starting with dot (like .git) are ignored (defvar ztree-diff-filter-list (list ztree-diff-hidden-files-regexp) (#$ . 2689)) (make-variable-buffer-local 'ztree-diff-filter-list) #@67 Pair of the directories stored. Used to perform the full rescan. (defvar ztree-diff-dirs-pair nil (#$ . 2930)) (make-variable-buffer-local 'ztree-diff-dirs-pair) #@52 Show or not equal files/directories on both sides. (defvar ztree-diff-show-equal-files t (#$ . 3099)) (make-variable-buffer-local 'ztree-diff-show-equal-files) #@43 Show or not files from the filtered list. (defvar ztree-diff-show-filtered-files nil (#$ . 3265)) (make-variable-buffer-local 'ztree-diff-show-filtered-files) #@53 Show or not orphan files/directories on right side. (defvar ztree-diff-show-right-orphan-files t (#$ . 3430)) (make-variable-buffer-local 'ztree-diff-show-right-orphan-files) #@52 Show or not orphan files/directories on left side. (defvar ztree-diff-show-left-orphan-files t (#$ . 3611)) (make-variable-buffer-local 'ztree-diff-show-left-orphan-files) #@168 Window configurations prior to calling `ediff'. A queue of window configurations, allowing to restore last configuration even if there were a couple of ediff sessions (defvar ztree-diff-ediff-previous-window-configurations nil (#$ . 3790)) #@97 Non-nil if ZtreeDiff mode is enabled. Use the command `ztreediff-mode' to change this variable. (defvar ztreediff-mode nil (#$ . 4036)) (make-variable-buffer-local 'ztreediff-mode) #@101 A minor mode for displaying the difference of the directory trees in text mode. (fn &optional ARG) (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 (#$ . 4224) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar ztreediff-mode-hook nil) (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) #@30 Keymap for `ztreediff-mode'. (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) (#$ . 5200)) (byte-code "\301\302\303\304\211%\207" [ztreediff-mode-map add-minor-mode ztreediff-mode " Diff" nil] 6) #@67 Return the face for the NODE depending on diff status. (fn NODE) (defalias 'ztree-diff-node-face #[257 "\305!>\204\306\307\310D\"\210\211\311H\211\312=\203 \2027\211\313=\203&\n\2027\211\314=\2030 \2027\211\315=\2057\f\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 ignore diff new same] 5 (#$ . 5880)]) #@40 Insert the header to the ztree buffer. (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 (#$ . 6363)]) #@43 Force full rescan of the directory trees. (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 (#$ . 7246) nil]) #@64 Return the NODE if both left and right sides exist. (fn NODE) (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 (#$ . 7470)]) #@87 Return the first node in up in hierarchy of the NODE which has both sides. (fn NODE) (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 (#$ . 7833)]) #@36 Partly rescan the NODE. (fn NODE) (defalias 'ztree-diff-do-partial-rescan #[257 "\302!\303!>\204\304\305\306D\"\210\211\307H\211\204& \205.\310 @ A\"\202.\311!\210\312\313 !\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-model-partial-rescan ztree-refresh-buffer line-number-at-pos] 6 (#$ . 8217)]) #@45 Perform partial rescan on the current node. (defalias 'ztree-diff-partial-rescan #[0 "\300 \211\205\n\301@!\207" [ztree-find-node-at-point ztree-diff-do-partial-rescan] 3 (#$ . 8653) nil]) #@142 Create a simple diff buffer for files from left and right panels. Argument NODE node containing paths to files to call a diff on. (fn NODE) (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 (#$ . 8851)]) #@67 Create a simple diff buffer for files from left and right panels. (defalias 'ztree-diff-simple-diff-files #[0 "\300 \211\205 \211@\301!\262\207" [ztree-find-node-at-point ztree-diff-simple-diff] 4 (#$ . 9324) nil]) #@118 Hook function for `ediff-before-setup-hook'. See the Info node `(ediff) hooks'. This hook function removes itself. (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 (#$ . 9549)]) #@110 Hook function for `ediff-quit-hook'. See the Info node `(ediff) hooks'. This hook function removes itself. (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 (#$ . 9973)]) #@166 Ediff that cleans up after itself. Ediff-related buffers are killed and the pre-Ediff window configuration is restored. (fn FILE-A FILE-B &optional STARTUP-HOOKS) (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 (#$ . 10366)]) #@259 Perform action on NODE: 1 if both left and right sides present: 1.1 if they are differend 1.1.1 if HARD ediff 1.1.2 simple diff otherwiste 1.2 if they are the same - view left 2 if left or right present - view left or rigth (fn NODE HARD) (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 (#$ . 10782)]) #@205 Update the NODE status and copy the file. File copied from SOURCE-PATH to DESTINATION-PATH. COPY-TO-RIGHT specifies which side of the NODE to update. (fn NODE SOURCE-PATH DESTINATION-PATH COPY-TO-RIGHT) (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 (#$ . 11669)]) #@215 Update the NODE status and copy the directory. Directory copied from SOURCE-PATH to DESTINATION-PATH. COPY-TO-RIGHT specifies which side of the NODE to update. (fn NODE SOURCE-PATH DESTINATION-PATH COPY-TO-RIGHT) (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\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!\210\322!\210\323\324 !\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-model-update-node ztree-diff-node-update-all-parents-diff ztree-refresh-buffer line-number-at-pos] 12 (#$ . 12590)]) #@47 Copy the file under the cursor to other side. (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 (#$ . 13495) nil]) #@40 View file at point, depending on side. (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 (#$ . 14439) nil]) #@35 Delete the file under the cursor. (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 (#$ . 14905) nil]) #@140 Determine if the NODE is in filter list. If the node is in the filter list it shall not be visible, unless it is a parent node. (fn NODE) (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 (#$ . 16769)]) #@53 Determine if the NODE should be visible. (fn NODE) (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 (#$ . 17318)]) #@13 (fn WHAT) (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 (#$ . 17910)])) #@50 Toggle visibility of the equal files/directories (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 (#$ . 18339) nil]) #@53 Toggle visibility of the filtered files/directories (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 (#$ . 18612) nil]) #@56 Toggle visibility of the left-orphan files/directories (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 (#$ . 18897) nil]) #@57 Toggle visibility of the right-orphan files/directories (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 (#$ . 19194) nil]) #@51 Toggle visibility of left and right orphan files. (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 (#$ . 19495) nil]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\321\302\322\302\323%\210\300\324\302\325\302\326%\210\300\327\302\330\302\331%\210\300\332\302\333\302\334%\207" [cl-generic-define-method ztree-node-visible-p nil ((node ztree-diff-node)) #[257 "\300!\207" [ztree-node-is-visible] 3 "Return T if the NODE shall be visible.\n\n(fn NODE)"] ztree-node-short-name ((node ztree-diff-node)) #[257 "\300\301\"\207" [ztree-diff-node-short-name-wrapper nil] 4 "Return the short name for a node.\n\n(fn NODE)"] ztree-node-right-short-name ((node ztree-diff-node)) #[257 "\300\301\"\207" [ztree-diff-node-short-name-wrapper t] 4 "Return the short name for a node.\n\n(fn NODE)"] ztree-node-expandable-p ((node ztree-diff-node)) #[257 "\300!\207" [ztree-diff-node-is-directory] 3 "Return T if the node is expandable.\n\n(fn NODE)"] ztree-node-equal ((node1 ztree-diff-node) (node2 ztree-diff-node)) #[514 "\300\"\207" [ztree-diff-node-equal] 5 "Equality function for NODE1 and NODE2.\nReturn T if nodes are equal\n\n(fn NODE1 NODE2)"] ztree-node-children ((node ztree-diff-node)) #[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 "Return a list of NODE children\n\n(fn NODE)"] ztree-node-action ((node ztree-diff-node) hard) #[514 "\300\"\207" [ztree-diff-node-action] 5 "Perform an action when the Return is pressed on a NODE.\n\n(fn NODE HARD)"] ztree-node-side ((node ztree-diff-node)) #[257 "\300!\207" [ztree-diff-node-side] 3 "Determine the side of the NODE.\n\n(fn NODE)"] ztree-node-face ((node ztree-diff-node)) #[257 "\300!\207" [ztree-diff-node-face] 3 "Return a face to write a NODE in\n\n(fn NODE)"]] 6) #@150 Create an interactive buffer with the directory tree of the path given. Argument DIR1 left directory. Argument DIR2 right directory. (fn DIR1 DIR2) (defalias 'ztree-diff #[514 "\203\n\301!\204\302\303\"\210\304!\204\302\305\"\210\211\203$\301!\204)\302\303\"\210\304!\2044\302\305\"\210\306\"\204?\302\307!\210\310\311\311$\312\313!>\204U\314\315\316D\"\210\317H\320\313!>\204i\314\315\316D\"\210\321H\312\260\322\323\324\325\326\327\330\f\f\f#\331\"\332$\333%\207" [cl-struct-ztree-diff-node-tags 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-diff-insert-buffer-header make-byte-code 0 "\304\305!\210\300\301B\306\302!\210\307 \207" vconcat vector [ztree-diff-dirs-pair ztree-diff-model-set-ignore-fun ztree-diff-node-ignore-p ztree-diff-node-recreate-with-progress ztreediff-mode] 2 t] 16 (#$ . 21634) "DLeft directory \nDRight directory "]) (provide 'ztree-diff)