Mercurial > emacs

comparison lisp/compare-w.el @ 16987:433d9754cdd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Karl Heuer <kwzh@gnu.org>
date Sun, 09 Feb 1997 23:02:19 +0000
parents dc0cd1c70c87
children 653ef38fd02e
comparison
equal deleted inserted replaced
16986:dc0cd1c70c87 16987:433d9754cdd5
1 ;;; compare-w.el --- compare text between windows for Emacs. 1 ;;; compare-w.el --- compare text between windows for Emacs.
2 2
3 ;; Copyright (C) 1986, 1989, 1993 Free Software Foundation, Inc. 3 ;; Copyright (C) 1986, 1989, 1993, 1997 Free Software Foundation, Inc.
4 4
5 ;; Maintainer: FSF 5 ;; Maintainer: FSF
6 6
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
8 8
96 (setq p1a (point)) 96 (setq p1a (point))
97 (set-buffer b2) 97 (set-buffer b2)
98 (goto-char p2) 98 (goto-char p2)
99 (setq result2 (funcall skip-func opoint2)) 99 (setq result2 (funcall skip-func opoint2))
100 (setq p2a (point)) 100 (setq p2a (point))
101 (if (or (stringp skip-whitespace) 101 (if (or (stringp compare-windows-whitespace)
102 (and result1 result2 (eq result1 result2))) 102 (and result1 result2 (eq result1 result2)))
103 (setq p1 p1a 103 (setq p1 p1a
104 p2 p2a))))) 104 p2 p2a)))))
105 105
106 (let ((size (min (- maxp1 p1) (- maxp2 p2))) 106 (let ((size (min (- maxp1 p1) (- maxp2 p2)))