aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/ediff-mult.el
diff options
context:
space:
mode:
authorKaroly Lorentey2005-02-20 18:47:54 +0000
committerKaroly Lorentey2005-02-20 18:47:54 +0000
commitb5d78df397f8cdcd20f3bcfbed2eb71d522abddd (patch)
treecedfc1db69595526c12da068ea7ff5bdf3b806f2 /lisp/ediff-mult.el
parent60c73d2ed638e5d51643c65a0fc6dea618fc72c8 (diff)
parenteedeacb3074baad8ce752a506f9f435c98e42ff4 (diff)
downloademacs-b5d78df397f8cdcd20f3bcfbed2eb71d522abddd.tar.gz
emacs-b5d78df397f8cdcd20f3bcfbed2eb71d522abddd.zip
Merged from miles@gnu.org--gnu-2005 (patch 17-26, 107-116)
Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-107 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-108 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-109 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-110 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-111 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-112 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-113 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-114 <no summary provided> * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-115 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-116 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-17 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-19 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-20 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-21 More work on moving images to etc/images * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-22 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-23 Fix errors with image-file installation * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-24 etc/Makefile.in (install): Put gnus-tut.txt in the right place. * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-25 etc/Makefile.in (install, uninstall): Fix installed image dirs. * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-26 etc/Makefile.in (install): Create $(etcdir)/images/gnus dir. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-296
Diffstat (limited to 'lisp/ediff-mult.el')
-rw-r--r--lisp/ediff-mult.el17
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/ediff-mult.el b/lisp/ediff-mult.el
index cf6edc2d129..41a7699cfdc 100644
--- a/lisp/ediff-mult.el
+++ b/lisp/ediff-mult.el
@@ -1,6 +1,6 @@
1;;; ediff-mult.el --- support for multi-file/multi-buffer processing in Ediff 1;;; ediff-mult.el --- support for multi-file/multi-buffer processing in Ediff
2 2
3;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 01, 02 Free Software Foundation, Inc. 3;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 01, 02, 05 Free Software Foundation, Inc.
4 4
5;; Author: Michael Kifer <kifer@cs.stonybrook.edu> 5;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
6 6
@@ -167,6 +167,9 @@ directories.")
167;; buffer used to collect custom diffs from individual sessions in the group 167;; buffer used to collect custom diffs from individual sessions in the group
168(ediff-defvar-local ediff-meta-diff-buffer nil "") 168(ediff-defvar-local ediff-meta-diff-buffer nil "")
169 169
170;; t means recurse into subdirs when deciding which files have same contents
171(ediff-defvar-local ediff-recurse-to-subdirectories nil "")
172
170;; history var to use for filtering groups of files 173;; history var to use for filtering groups of files
171(defvar ediff-filtering-regexp-history nil "") 174(defvar ediff-filtering-regexp-history nil "")
172 175
@@ -2349,6 +2352,7 @@ last-command-char is used to decide which action to take."
2349 )) 2352 ))
2350 (setq list (cdr list))) 2353 (setq list (cdr list)))
2351 (message "Comparing files ... Done")) 2354 (message "Comparing files ... Done"))
2355 (setq ediff-recurse-to-subdirectories nil)
2352 (ediff-update-meta-buffer (current-buffer) 'must-redraw)) 2356 (ediff-update-meta-buffer (current-buffer) 'must-redraw))
2353 2357
2354;; mark files 1 and 2 as equal, if they are. 2358;; mark files 1 and 2 as equal, if they are.
@@ -2356,12 +2360,11 @@ last-command-char is used to decide which action to take."
2356(defun ediff-mark-if-equal (fileinfo1 fileinfo2) 2360(defun ediff-mark-if-equal (fileinfo1 fileinfo2)
2357 (let ((f1 (car fileinfo1)) 2361 (let ((f1 (car fileinfo1))
2358 (f2 (car fileinfo2))) 2362 (f2 (car fileinfo2)))
2359 (cond ((file-directory-p f1) nil) 2363 (if (and (stringp f1) (stringp f2) (ediff-same-contents f1 f2))
2360 ((file-directory-p f2) nil) 2364 (progn
2361 ((ediff-same-file-contents f1 f2) 2365 (ediff-set-file-eqstatus fileinfo1 t)
2362 (ediff-set-file-eqstatus fileinfo1 t) 2366 (ediff-set-file-eqstatus fileinfo2 t)
2363 (ediff-set-file-eqstatus fileinfo2 t) 2367 ))
2364 t))
2365 )) 2368 ))
2366 2369
2367 2370