;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 2 20:19:08 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/compare-w.el ;;; emacs version 19.28.90.69. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/compare-w.el' was compiled for Emacs 19")) #@656 *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-windows-whitespace "[ \n]+" (#$ . -488)) #@61 *Non-nil means \[compare-windows] ignores case differences. (defvar compare-ignore-case nil (#$ . -1207)) #@590 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. 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 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. (defalias 'compare-windows #[(ignore-whitespace) "ÀÀÀÀÀÀÀÀÀ `\nÀ \f…# `pÏÐ !‰Ð =ƒ:ÑÒ!ˆÓ!Ô!\n dŠqˆÕ\nÖ\"ˆd)Õ ˆÖƒ;À bˆ×\n\"ˆƒÛŠÀ‰‰‰‰‰;ƒ“Ý\n!‚˜\n!`qˆ\nbˆ;ƒ±Ý !‚¶ !`;„ÓƒÙƒÙ=ƒÙ.ÞÀ !‰ âVƒ7Ö!!ƒ- Z\f\nZ^^‰ âV…ã\n \n\\  \\&âU‰!ƒî  \\\n \\Ö‚î 䥉 ‚æ+‚] bˆ×\n\"ˆ`\nU…Må .\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 push-mark 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 (#$ . 1320) "P"]) (defalias 'compare-windows-skip-whitespace #[(start) "```Ã\f!ƒ\nÅ•XƒÅ•`V„*`U„0`Uƒ0Çuˆ‚`\nbˆ U?†@\nU?+‡" [opoint beg end looking-at compare-windows-whitespace 0 start -1] 3]) (provide (quote compare-w))