diff options
| author | Karoly Lorentey | 2005-02-20 18:47:54 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-02-20 18:47:54 +0000 |
| commit | b5d78df397f8cdcd20f3bcfbed2eb71d522abddd (patch) | |
| tree | cedfc1db69595526c12da068ea7ff5bdf3b806f2 /lisp/ediff-mult.el | |
| parent | 60c73d2ed638e5d51643c65a0fc6dea618fc72c8 (diff) | |
| parent | eedeacb3074baad8ce752a506f9f435c98e42ff4 (diff) | |
| download | emacs-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.el | 17 |
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 | ||