aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2001-08-15 11:03:41 +0000
committerGerd Moellmann2001-08-15 11:03:41 +0000
commit3e6f08e6f06e9058fc0f802ec58d8849c8b266ca (patch)
tree8d2485a1c30e7ba59bb61926778bea8d2c32e7ef
parent93aba6fcd408d876343aca2f02692e52de6df4bc (diff)
downloademacs-3e6f08e6f06e9058fc0f802ec58d8849c8b266ca.tar.gz
emacs-3e6f08e6f06e9058fc0f802ec58d8849c8b266ca.zip
(ediff-get-meta-info): Fix the condition
of a while-loop.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/ediff-mult.el7
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c104c8fbe6..91879e33634 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
12001-08-15 Gerd Moellmann <gerd@gnu.org> 12001-08-15 Gerd Moellmann <gerd@gnu.org>
2 2
3 * ediff-mult.el (ediff-get-meta-info): Fix the condition
4 of a while-loop.
5
3 * Makefile.in (DONTCOMPILE): Remove sc.el. 6 * Makefile.in (DONTCOMPILE): Remove sc.el.
4 7
5 * Makefile.in (finder_setwins): Renamed from nonobsolete_setwins. 8 * Makefile.in (finder_setwins): Renamed from nonobsolete_setwins.
diff --git a/lisp/ediff-mult.el b/lisp/ediff-mult.el
index 7115a2671f8..85ac72ee464 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, 1996, 1997 Free Software Foundation, Inc. 3;; Copyright (C) 1995, 1996, 1997, 2001 Free Software Foundation, Inc.
4 4
5;; Author: Michael Kifer <kifer@cs.sunysb.edu> 5;; Author: Michael Kifer <kifer@cs.sunysb.edu>
6 6
@@ -1966,8 +1966,9 @@ If this is a session registry buffer then just bury it."
1966 (setq olist 1966 (setq olist
1967 (mapcar (lambda (elt) (overlay-get elt 'ediff-meta-info)) 1967 (mapcar (lambda (elt) (overlay-get elt 'ediff-meta-info))
1968 olist)) 1968 olist))
1969 (while (and olist (null (car olist)) 1969 (while (and olist
1970 (overlay-get (car olist) 'invisible)) 1970 (or (null (car olist))
1971 (overlay-get (car olist) 'invisible)))
1971 (setq olist (cdr olist))) 1972 (setq olist (cdr olist)))
1972 (setq result (car olist))))) 1973 (setq result (car olist)))))
1973 (if result 1974 (if result