| 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) | |
