;;; compiled by eric@geech.gnu.ai.mit.edu on Mon Mar 22 13:27:30 1993
;;; from file /gd/gnu/emacs/19.0/lisp/compare-w.el
;;; emacs version 19.0.506.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(defvar compare-windows-whitespace " 	\n" "\
*String of characters considered whitespace for \\[compare-windows].
Changes in whitespace are optionally ignored.

The value of `compare-windows-whitespace' may instead be a function; this
function is called in each buffer, with point at the current scanning point.
The function's job is to categorize any whitespace around (including before)
point; it should also advance past any whitespace.

The function is passed one argument, the point where `compare-windows'
was originally called; it should not consider any text before that point.
If the function returns the same value for both buffers, then the
whitespace is considered to match, and is skipped.")
(defvar compare-ignore-case nil "\
*Non-nil means \\[compare-windows] ignores case differences.")
(fset 'compare-windows #[(ignore-whitespace) "ÀÀÀÀÀÀÀÀÀ	`\nÀ…# ÏÐQ`pÒÓ !‰Ó =ƒA ÔÕ!ˆÖ!×!\ndŠqˆd)ØƒaÀ	bˆÙ\n\"ˆƒ ŠÀ‰‰‰‰‰;ƒ¨ m„– ß\n\"ˆà!ƒ² áâ!Ø‚² \n!`qˆ\nbˆ;ƒÜ m„Ê ß\"ˆà!ƒæ áâ!Ø‚æ !`ƒþ ƒþ =ƒþ .ãÀ$%&‰	âVƒ]Ø&&ƒR		Z\nZ^^‰	âV…<ç\n	\n\\			\\&âU‰&ƒ		\\\n	\\Ø‚è	é\"‰	‚+‚\\ 	bˆÙ\n\"ˆ`\nU…sê .‡" [nil p1 p2 maxp1 maxp2 b1 b2 w2 success size opoint1 opoint2 ignore-whitespace compare-windows-whitespace skip-whitespace "[" "]+" skip-whitespace-regexp next-window selected-window error "No other window" window-point window-buffer t set-window-point result2 result1 w1 p2a p1a skip-chars-backward looking-at match-end 0 1000 compare-ignore-case case-fold-search success-1 compare-buffer-substrings / 2 ding] 9 "\
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.

A prefix arg means 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." "P"])
(provide (quote compare-w))
