Current File : //usr/local/share/emacs/27.2/lisp/vc/compare-w.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\302\303\304\305\306\307\310\311&\210\312\313\314\315\316\317\320\321\310\303& \210\312\322\304\323\320\324\310\303\316\325& \210\312\326\304\327\320\324\310\303&\210\312\330\331\332\320\333\310\303\316\325& \210\312\334\335\336\320\337\310\303\316\325& \210\312\340\304\341\320\342\310\303\316\325& \210\312\343\344\345\320\346\310\303\316\325& \210\347\350\351\352\310\303\316\353&\210\347\354\355\356\310\303\316\353&\210\357\303\360\354#\210\357\303\361\362\353!\206\216 \344#\207" [require diff-mode custom-declare-group compare-windows nil "Compare text between windows." :prefix "compare-" :group tools custom-declare-variable compare-windows-whitespace "\\(\\s-\\|\n\\|\240\\)+" "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 "Non-nil means command `compare-windows' ignores whitespace." boolean "22.1" compare-ignore-case "Non-nil means command `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 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] 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)
#@52 Function that provides the window to compare with.
(custom-declare-variable 'compare-windows-get-window-function ''compare-windows-get-recent-window '(#$ . 4968) :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")) :group 'compare-windows :version "25.1")
#@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 #[nil "\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 (#$ . 5376)])
#@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 #[nil "\301 \211\302 =\203 \301\302 \303\304#\302 =\203 \305\306!\210)\207" [w2 next-window selected-window nil visible error "No other window"] 5 (#$ . 5783)])
#@1204 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 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!! $d \205_ *;\203] \313\202_ *%r q\210 \205v *;\203t \314\202v *&\315 \316\"\210d)\315 \210\"\317V\203<%\203\320 \212\306\211\211\211 + , - .%#!,`. q\210 b\210&$!+`-,\203\317 +\203\317 ,+=\203\317 .--\f\nZ
Z^/ 0 1\320 1 \\ \n1\n\\&\211\"\317U\203\373 1\202 \321\"!S\"\n\"\\ \"\\*\nb\210\322! \"\2102\203\203 \3232@!\210\324!! 3r\325\216\3263@\327\"\210\3232A@!\210+\202\203 `#U\203\274(\204M\330 \202\310\212\3064( \210` q\210 b\210( \210`)\nb\210\322! \"\2102\203\221\3232@!\210\324!! 3r\331\216\3263@\327\"\210\3232A@!\210+\n#U\203\255 $U\203\255\332 \210\330 \210\333\334 \"\202\310\333\335$ #\n &\202\310\333\336$ #\n &.
\207" [compare-ignore-whitespace ignore-whitespace p1 p2 maxp1 maxp2 nil 1 compare-windows-sync-regexp 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 abs set-window-point recenter internal--before-with-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord ding #[nil "\301!\207" [save-selected-window--state 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" b1 b2 w2 progress opoint1 opoint2 skip-func-1 skip-func-2 compare-windows-sync sync-func compare-windows-get-window-function compare-windows-whitespace result2 result1 p2a p1a compare-ignore-case case-fold-search size compare-windows-recenter save-selected-window--state compare-windows-sync-point] 9 (#$ . 6147) "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> \nU?+\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 \n \307 ! r\fq\210d) \310 ! ` \311\211 \311\211 \311 \204\314 dZ
Z]W\211\204R \312V\203\314 \203` \313_\202f \313\245\211\\d^Z\\
^ \211 W\203\310 \314 \211\\\"r\fq\210b\210! \"\315 \316#*\211\203\277 Z \\ E B T\211 \202 +\2024 \203\366 \317\320\321\322 \"\" \236A\211 @b\210\323 @p A@\f &\210 A@\206\376 \316\211.
\207\247\203 b\210\311\211\207" [compare-windows-sync-point w1 compare-windows-get-window-function w2 b2 point-max2 selected-window window-buffer window-point nil 4 2 buffer-substring-no-properties search-forward t apply min mapcar car compare-windows-highlight op2 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] 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\316#\210\310\313\314#\210\310\315#\210\317=\204h \320\321\322\"\207 \203x \323 !B\324 !\210\205\212 \323!B\324!\207" [compare-windows-highlight compare-windows-overlay1 beg1 end1 b1 w1 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 compare-windows-overlay2 beg2 end2 b2 w2 compare-windows-overlays1 compare-windows-overlays2] 5])
#@70 Remove highlighting created by function `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 (#$ . 11278) nil])
(provide 'compare-w)
Mini Shell