;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sat May 28 04:44:04 1994 ;;; from file /home/fsf/rms/e19/lisp/compare-w.el ;;; emacs version 19.23.90.1. ;;; 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 "`/home/fsf/rms/e19/lisp/compare-w.el' 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 \f# `p ! =:!!!\n dqd)3 b\n\";\n!\n!`q\nb; ! !`;=.  V/  % Z\f\nZ^^ V\n \n\\  \\&U  \\\n \\ 㥉 +U b\n\"`\nUE .\f" [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) "```\f!\nŕXŕ`V*`U0`U0u`\nb U?@\nU?+" [opoint beg end looking-at compare-windows-whitespace 0 start -1] 3] provide compare-w] 3)