Mercurial > emacs

comparison lisp/compare-w.el @ 584:4cd7543be581

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** 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