;ELC ;;; compiled by jwz@thalidomide on Fri Dec 31 02:00:54 1993 ;;; from file /th/jwz/emacs19/lisp/packages/compare-w.el ;;; emacs version 19.9 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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.")) (provide 'compare-w) (defvar compare-windows-whitespace "[ \n]+" "\ *Regular expression defining runs of 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 "\ *If the value of this variable evaluates to non-nil, \\[compare-windows] ignores case differences. Some useful settings: nil, t or 'case-fold-search, meaning to track the value of the `case-fold-search' variable.") (fset 'compare-windows #[(&optional ignore-whitespace) "`p  ! =!*  !  !  !Ԫ;֪ b  \"׊ ! UԪSb !` q b! UԪ Sb!`= -\n  &W[U\nqd qd) U\\\\ \\\\ )Ib  \"` U .\n" [p1 opoint1 b1 selected-window w next-window n error "No other window" w2 window-point p2 window-buffer b2 opoint2 t success eval compare-ignore-case ignore-whitespace nil compare-windows-whitespace #[(start) "` !\nŕXŕ`V!d \nb *" [nil found p looking-at compare-windows-whitespace 0 t start backward-char 1] 2] skip-whitespace set-window-point result1 p1a result2 p2a case-fold-search compare-buffer-substrings 0 1 -1 beep] 8 "\ 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"])