;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\322\323&\210\312\324\314\315\325DD\326\322\327\320\330&\210\312\331\314\315\332DD\333\322\327%\210\312\334\314\315\335DD\336\322\337\320\330&\210\312\340\314\315\341DD\342\322\343\320\330&\210\312\344\314\315\345DD\346\322\347\320\330&\210\312\350\314\315\351DD\352\322\353\320\330&\210\354\355\356\357\320\360%\210\354\361\362\363\320\360%\210\364\303\365\361#\210\364\303\366\367\360!\206\225\370#\207" [require diff-mode custom-declare-group compare-windows nil "Compare text between windows." :prefix "compare-" :group tools custom-declare-variable compare-windows-whitespace funcall function #[0 "\300\207" ["\\(\\s-\\|\n\\|\240\\)+"] 1 #1=""] "Regexp or function that defines whitespace sequences for `compare-windows'.\nThat command optionally ignores changes in whitespace.\n\nThe value of `compare-windows-whitespace' is normally a regexp, but it\ncan also be a function.  The function's job is to categorize any\nwhitespace around (including before) point; it should also advance\npast any whitespace.  The function is called in each window, with\npoint at the current scanning point.  It gets one argument, the point\nwhere \\[compare-windows] was originally called; it should not look at\nany text before that point.\n\nIf the function returns the same value for both windows, then the\nwhitespace is considered to match, and is skipped." :version "24.4" :type (choice regexp function) compare-ignore-whitespace #[0 "\300\207" [nil] 1 #1#] "Non-nil means command `compare-windows' ignores whitespace." boolean "22.1" compare-ignore-case #[0 "\300\207" [nil] 1 #1#] "Non-nil means command `compare-windows' ignores case differences." compare-windows-sync #[0 "\300\207" [compare-windows-sync-default-function] 1 #1#] "Function or regexp that is used to synchronize points in two\nwindows if before calling `compare-windows' points are located\non mismatched positions.\n\nThe value of `compare-windows-sync' can be a function.  The\nfunction's job is to advance points in both windows to the next\nmatching text.  If the value of `compare-windows-sync' is a\nregexp, then points in both windows are advanced to the next\noccurrence of this regexp.\n\nThe current default value is the general function\n`compare-windows-sync-default-function' that is able to\nsynchronize points by using quadratic algorithm to find the first\nmatching 32-character string in two windows.\n\nThe other useful values of this variable could be such functions\nas `forward-word', `forward-sentence', `forward-paragraph', or a\nregexp containing some field separator or a newline, depending on\nthe nature of the difference units separator.  The variable can\nbe made buffer-local.\n\nIf the value of this variable is nil (option \"No sync\"), then\nno synchronization is performed, and the function `ding' is called\nto beep or flash the screen when points are mismatched." (choice function regexp (const :tag "No sync" nil)) compare-windows-sync-string-size #[0 "\300\207" [32] 1 #1#] "Size of string from one window that is searched in second window.\n\nSmall number makes difference regions more fine-grained, but it\nmay fail by finding the wrong match.  The bigger number makes\ndifference regions more coarse-grained.\n\nThe default value 32 is good for the most cases." integer compare-windows-recenter #[0 "\300\207" [nil] 1 #1#] "List of two values, each of which is used as argument of\nfunction `recenter' called in each of two windows to place\nmatching points side-by-side.\n\nThe value `(-1 0)' is useful if windows are split vertically,\nand the value `((4) (4))' for horizontally split windows." (list sexp sexp) compare-windows-highlight #[0 "\300\207" [t] 1 #1#] "Non-nil means `compare-windows' highlights the differences.\nThe value t removes highlighting immediately after invoking a command\nother than `compare-windows'.\nThe value `persistent' leaves all highlighted differences.  You can clear\nout all highlighting later with the command `compare-windows-dehighlight'." (choice (const :tag "No highlighting" nil) (const :tag "Persistent highlighting" persistent) (other :tag "Highlight until next command" t)) custom-declare-face compare-windows-removed ((t :inherit diff-removed)) "Face for highlighting `compare-windows' differing regions in the other window." "25.1" compare-windows-added ((t :inherit diff-added)) "Face for highlighting `compare-windows' differing regions in current window." put face-alias obsolete-face purecopy t] 8)
(defvar compare-windows-overlay1 nil)
(defvar compare-windows-overlay2 nil)
(defvar compare-windows-overlays1 nil)
(defvar compare-windows-overlays2 nil)
(defvar compare-windows-sync-point nil)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable compare-windows-get-window-function funcall function #[0 "\300\207" [compare-windows-get-recent-window] 1 ""] "Function that provides the window to compare with." :type (choice (function-item :tag "Most recently used window" compare-windows-get-recent-window) (function-item :tag "Next window" compare-windows-get-next-window) (function :tag "Your function")) :version "25.1"] 8)
#@196 Return the most recently used window.
First try to get the most recently used window on a visible frame,
then try to get a window on an iconified frame, and finally
consider all existing frames.
(defalias 'compare-windows-get-recent-window #[0 "\300\301\302\211#\206\300\303\302\211#\206\300\302\211\211#\206\304\305!\207" [get-mru-window visible t 0 error "No other window"] 4 (#$ . 5308)])
#@147 Return the window next in the cyclic ordering of windows.
In the selected frame contains only one window, consider windows
on all visible frames.
(defalias 'compare-windows-get-next-window #[0 "\300 \211\301 =\203\300\301 \302\303#\262
\211\301 =\203\304\305!\210\207" [next-window selected-window nil visible error "No other window"] 5 (#$ . 5713)])
#@1247 Compare text in current window with text in another window.
The option `compare-windows-get-window-function' defines how
to get another window.

Compares the text starting at point in each window,
moving over text in each one as far as they match.

This command pushes the mark in each window
at the prior location of point in that window.
If both windows display the same buffer,
the mark is pushed twice in that buffer:
first in the other window, then in the selected window.

A prefix arg IGNORE-WHITESPACE, means reverse the value of variable
`compare-ignore-whitespace'.  If `compare-ignore-whitespace' is
nil, then a prefix arg means ignore changes in whitespace.  If
`compare-ignore-whitespace' is non-nil, then a prefix arg means
don't ignore changes in whitespace.  The variable
`compare-windows-whitespace' controls how whitespace is skipped.
If `compare-ignore-case' is non-nil, changes in case are also
ignored.

If `compare-windows-sync' is non-nil, then successive calls of
this command work in interlaced mode:
on first call it advances points to the next difference,
on second call it synchronizes points by skipping the difference,
on third call it again advances points to the next difference and so on.

(fn IGNORE-WHITESPACE)
(defalias 'compare-windows #[257 "\203\211?\262
\306\211\211\211\211\211\211\307`\306\211\211	;\203\310\202	`\262
p\262	\n \262\311!\262\f\312!\262\262d\262
\205J;\203I\313\202J\262rq\210
\205`;\203_\314\202`\262\315\f\316\"\210d\262\n)\315 \210\317V\203'
\203\260\212\306\211\211\211	!\262`\262q\210b\210!\262
`\262
\203\255\211\203\255

=\203\255\262\262\266)\n
Z\n
Z^\f\320	\\
\\&\262\317U\203\336\211\202\343\321!S\262
\\\262\f\\\262
)\210\fb\210\322
\"\210 \203o\323 @!\210\324!r\325\326\"\216\327
@\330\"\210\323 A@!\210*\210\202o`U\203\244
\211\2044
\331 \207\212\306!\211 \210`\262
q\210b\210\211 \210`\262\f)\fb\210\322
\"\210 \203|
\323 @!\210\324!r\325\332\"\216\327
@\330\"\210\323 A@!\210*\210\fU\203\226
U\203\226
\333 \210\331 \210\334\335	\"\207\334\336
&\207\334\337
&\207" [compare-ignore-whitespace compare-windows-sync compare-windows-get-window-function compare-windows-whitespace compare-ignore-case case-fold-search nil 1 compare-windows-sync-regexp window-point window-buffer #[257 "\300
!\210\301\207" [compare-windows-skip-whitespace t] 3 "\n\n(fn POS)"] #[257 "\300
!\210\301\207" [compare-windows-skip-whitespace t] 3 "\n\n(fn POS)"] push-mark t 0 compare-buffer-substrings abs set-window-point recenter internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord ding #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] compare-windows-dehighlight message "No more matches with %s" "Diff -%s,%s +%s,%s with %s" "Match -%s,%s +%s,%s with %s" compare-windows-recenter compare-windows-sync-point] 23 (#$ . 6076) "P"])
#@14 

(fn START)
(defalias 'compare-windows-skip-whitespace #[257 "```\301!\203\302\225X\203\302\225\262`V\204&`U\204,`
U\203,\303u\210\202`\262b\210

U?\206=
U?\207" [compare-windows-whitespace looking-at 0 -1] 6 (#$ . 9108)])
(defalias 'compare-windows-sync-regexp #[0 ";\205\n\301\302\303#\207" [compare-windows-sync re-search-forward nil t] 4])
(defalias 'compare-windows-sync-default-function #[0 "\204\326\305 	 \306
!r\211q\210d)\307!`\n\211\310\211\211\211\211
\204\243d	ZZ]W\211\262\2049\311V\203\243\203F\312_\262\202K\312\245\262\211\\d^Z\n	\\\f^W\203\236\313\211\\\"\262r
q\210b\210\314\315#*\262\203\227	Z\262\\EB\262T\262\202^\266\202
\203\314\316\317\320\321\"\"\236A\262
\211@b\210\322@p
A@&\210\211A@\206\323\315\211\207\247\203\336b\210\310\211\207" [compare-windows-sync-point compare-windows-get-window-function compare-windows-sync-string-size compare-ignore-case case-fold-search selected-window window-buffer window-point nil 4 2 buffer-substring-no-properties search-forward t apply min mapcar car compare-windows-highlight] 22])
#@40 

(fn BEG1 END1 B1 W1 BEG2 END2 B2 W2)
(defalias 'compare-windows-highlight #[2056 "\205}	\203\305				$\210\202*\306#\307	\310\311#\210\307	\312\313#\210\307	\314#\210\n\203?\305\n$\210\202Q\306#\307\n\310\315#\210\307\n\312\313#\210\307\n\314#\210\316=\204b\317\320\321\"\207	\203p\322	!B\323	!\210\n\205}\322\n!\fB\323\n!\207" [compare-windows-highlight compare-windows-overlay1 compare-windows-overlay2 compare-windows-overlays1 compare-windows-overlays2 move-overlay make-overlay overlay-put face compare-windows-added priority 1000 window compare-windows-removed persistent add-hook pre-command-hook compare-windows-dehighlight copy-overlay delete-overlay] 13 (#$ . 10274)])
#@70 Remove highlighting created by function `compare-windows-highlight'.
(defalias 'compare-windows-dehighlight #[0 "\304\305\306\"\210\307\310\"\210\307\310	\"\210\n\203\310\n!\210\205\310!\207" [compare-windows-overlays1 compare-windows-overlays2 compare-windows-overlay1 compare-windows-overlay2 remove-hook pre-command-hook compare-windows-dehighlight mapc delete-overlay] 3 (#$ . 10994) nil])
(provide 'compare-w)