;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; 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)
|
#@51 Message showing while constructing the diff tree.
|
(defvar ztree-diff-wait-message nil (#$ . 3789))
|
(make-variable-buffer-local 'ztree-diff-wait-message)
|
#@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 (#$ . 3949))
|
#@97 Non-nil if ZtreeDiff mode is enabled.
|
Use the command `ztreediff-mode' to change this variable.
|
(defvar ztreediff-mode nil (#$ . 4195))
|
(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 (#$ . 4383) (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) (#$ . 5359))
|
(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\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)])
|
#@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 (#$ . 6594)])
|
#@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 (#$ . 7477) 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 (#$ . 7701)])
|
#@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 (#$ . 8064)])
|
#@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& \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)])
|
#@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 (#$ . 9023) 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 (#$ . 9221)])
|
#@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 (#$ . 9694) 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 (#$ . 9919)])
|
#@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 (#$ . 10343)])
|
#@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 (#$ . 10737)])
|
#@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 (#$ . 11153)])
|
#@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 (#$ . 12040)])
|
#@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\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)])
|
#@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 (#$ . 14008) 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 (#$ . 14952) 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 (#$ . 15418) 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 (#$ . 17282)])
|
#@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 (#$ . 17831)])
|
#@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 (#$ . 18423)]))
|
#@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 (#$ . 18852) 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 (#$ . 19125) 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 (#$ . 19410) 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 (#$ . 19707) 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 (#$ . 20008) nil])
|
#@88 Update the wait message MSG with one more `.' progress indication.
|
|
(fn &optional MSG)
|
(defalias 'ztree-diff-update-wait-message #[256 "\211\203 \211\202 \203 \301P\302!\207" [ztree-diff-wait-message "." message] 3 (#$ . 20325)])
|
#@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 \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 "])
|
(provide 'ztree-diff)
|
