;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Wed Jul 14 16:22:15 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/compare-w.el ;;; emacs version 19.16.8. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (defvar compare-windows-whitespace "[ \n]+" "\ *Regexp that defines whitespace sequences 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.") (defalias 'compare-windows #[(ignore-whitespace) " `\n  # `p ! =:!!!\n dqd)- b\n\";\n!\n!`q\nb; ! !`=.  V)   Z \nZ^^ V \n \n\\  \\&U  \\\n \\ 㥉 +U b\n\"`\nU? . " [nil p1 p2 maxp1 maxp2 b1 b2 w2 success size opoint1 opoint2 ignore-whitespace compare-windows-whitespace skip-whitespace next-window selected-window error "No other window" window-point window-buffer t set-window-point result2 result1 w1 p2a p1a compare-windows-skip-whitespace 1000 compare-ignore-case case-fold-search success-1 0 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"]) (byte-code "\"!" [defalias compare-windows-skip-whitespace #[(start) "`` ! ĕX ĕ` V u b U*?" [opoint end looking-at compare-windows-whitespace 0 start -1] 2] provide compare-w] 3)