WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/vc
Viewing File: /usr/share/emacs/24.3/lisp/vc/compare-w.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:52:09 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/compare-w.el
;;; in Emacs version 24.3.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\302\303\304\305\306\307&\210\310\311\312\313\314\315\306\301&\210\310\316\302\317\314\320\306\301\321\322&	\210\310\323\302\324\314\320\306\301&\210\310\325\326\327\314\330\306\301\321\322&	\210\310\331\332\333\314\334\306\301\321\322&	\210\310\335\302\336\314\337\306\301\321\322&	\210\310\340\341\342\314\343\306\301\321\322&	\210\344\301\345\346\306\301\321\322&\207" [custom-declare-group compare-windows nil "Compare text between windows." :prefix "compare-" :group tools custom-declare-variable compare-windows-whitespace "\\(\\s-\\|\n\\)+" "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." :type (choice regexp function) compare-ignore-whitespace "Non-nil means `compare-windows' ignores whitespace." boolean :version "22.1" compare-ignore-case "Non-nil means `compare-windows' ignores case differences." compare-windows-sync 'compare-windows-sync-default-function "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 32 "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 "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 t "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 ((t :inherit lazy-highlight)) "Face for highlighting of compare-windows difference regions."] 10)
(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)
#@1116 Compare text in current window with text in next 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 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.
(defalias 'compare-windows #[(ignore-whitespace) "\203	?\306\211\306\211\306\211#$\306%\307&`'\306\211()\306*+;\2031\310\2023+,`p#\311\312 !\211%\312 =\203O\311\312 \306\313#%%\312 =\203[\314\315!\210\316%!\317%!$(d	\205{-;\203y\320\202{-)r$q\210	\205\222-;\203\220\321\202\222-*\322\323\"\210d)\322 \210&\324V\203d)\203\363\212\306\211\211\211\211\211./%012)'!/`2$q\210b\210*(!.`1/\203\361.\203\361/.=\203\36121.\f\nZ
Z^345\325$5\\#\n5\n\\&&\326&!\2035\202$\327&!S&\n&\\&\\*\nb\210\330%\"\2106\203\237\3316@!\210\332%!7r\333\216\3347@\335\"\210\3316\2118A@)!\210+\202\237`'U\205\324,\204u\336 \202\324\212\3069, \210`$q\210b\210, \210`)\nb\210\330%\"\2106\203\275\3316@!\210\332%!7r\337\216\3347@\335\"\210\3316\2118A@)!\210+\n'U\205\324(U\205\324\340 \210\336 \210\341\342!.
\207" [compare-ignore-whitespace ignore-whitespace p1 p2 maxp1 maxp2 nil 1 compare-windows-sync-regexp next-window selected-window visible error "No other window" window-point window-buffer #[(pos) "\301!\210\302\207" [pos compare-windows-skip-whitespace t] 2] #[(pos) "\301!\210\302\207" [pos compare-windows-skip-whitespace t] 2] push-mark t 0 compare-buffer-substrings zerop abs set-window-point recenter internal--before-with-selected-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord ding ((internal--after-with-selected-window save-selected-window--state)) compare-windows-dehighlight message "No more matching points" b1 b2 w2 progress opoint1 opoint2 skip-func-1 skip-func-2 compare-windows-sync sync-func compare-windows-whitespace result2 result1 w1 p2a p1a compare-ignore-case case-fold-search size compare-windows-recenter save-selected-window--state x compare-windows-sync-point] 9 (#$ . 4740) "P"])
(defalias 'compare-windows-skip-whitespace #[(start) "```\305!\203\n\306\225X\203\306\225`\fV\204(`\fU\204.`U\203.\307u\210\202`\nb\210	U?\206>\nU?+\207" [opoint beg end compare-windows-whitespace start looking-at 0 -1] 3])
(defalias 'compare-windows-sync-regexp #[nil ";\205\n\301\302\303#\207" [compare-windows-sync re-search-forward nil t] 4])
(defalias 'compare-windows-sync-default-function #[nil "\204\306 \307	!\310\n!rq\210d)\311\n!`\312\211\312\211\312\204\311dZ\f
Z]W\211\204Q\313V\203\311\203_\314_\202e\314\245\211\\d^Z
\\\f^\211 W\203\305\315 \211\\\"rq\210
b\210!\"\316\317#*\211\203\274Z \\ EB T\211 \202}+\2024\203\366\320\321\322\323\"\"\236A\211@b\210\324@p	
\211#A@)\n&\210\211#A@)\206\317\211.
\207\247\203b\210\312\211\207" [compare-windows-sync-point w1 w2 b2 point-max2 op2 selected-window next-window window-buffer window-point nil 4 2 buffer-substring-no-properties search-forward t apply min mapcar car compare-windows-highlight op1 compare-windows-sync-string-size region-size string-size in-bounds-p s1 p2 p12s p12 bound2 bound1 p1 compare-ignore-case case-fold-search x] 10])
(defalias 'compare-windows-highlight #[(beg1 end1 b1 w1 beg2 end2 b2 w2) "\205\212	\203\306	\n\f$\210\202$\307\n\f#\310	\311\312#\210\310	\313\314#\210\310	\315
#\210\203=\306$\210\202U\307#\310\311\312#\210\310\313\314#\210\310\315#\210\316=\204h\317\320\321\"\207	\203x\322	!B\323	!\210\205\212\322!B\323!\207" [compare-windows-highlight compare-windows-overlay1 beg1 end1 b1 w1 move-overlay make-overlay overlay-put face compare-windows priority 1000 window persistent add-hook pre-command-hook compare-windows-dehighlight copy-overlay delete-overlay compare-windows-overlay2 beg2 end2 b2 w2 compare-windows-overlays1 compare-windows-overlays2] 5])
#@61 Remove highlighting created by `compare-windows-highlight'.
(defalias 'compare-windows-dehighlight #[nil "\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 (#$ . 9713) nil])
(provide 'compare-w)
F1l3 Manager
