Mercurial > emacs
comparison lisp/compare-w.el @ 584:4cd7543be581
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 16 Mar 1992 20:39:07 +0000 |
parents | e5ba2ba35226 |
children | 8a533acedb77 |
comparison
equal
deleted
inserted
replaced
583:3c0c1cd8428a | 584:4cd7543be581 |
---|---|
14 ;; GNU General Public License for more details. | 14 ;; GNU General Public License for more details. |
15 | 15 |
16 ;; You should have received a copy of the GNU General Public License | 16 ;; You should have received a copy of the GNU General Public License |
17 ;; along with GNU Emacs; see the file COPYING. If not, write to | 17 ;; along with GNU Emacs; see the file COPYING. If not, write to |
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
19 | |
20 (provide 'compare-w) | |
21 | 19 |
22 (defvar compare-windows-whitespace " \t\n" | 20 (defvar compare-windows-whitespace " \t\n" |
23 "*String of characters considered whitespace for \\[compare-windows]. | 21 "*String of characters considered whitespace for \\[compare-windows]. |
24 Changes in whitespace are optionally ignored. | 22 Changes in whitespace are optionally ignored. |
25 | 23 |
125 | 123 |
126 (goto-char p1) | 124 (goto-char p1) |
127 (set-window-point w2 p2) | 125 (set-window-point w2 p2) |
128 (if (= (point) opoint1) | 126 (if (= (point) opoint1) |
129 (ding)))) | 127 (ding)))) |
128 | |
129 (provide 'compare-w) | |
130 |