changeset 105519:ea98608909b8

* cedet/ede/source.el (ede-want-any-source-files-p) (ede-want-any-auxiliary-files-p, ede-want-any-files-p): Return search result. This error was introduced while merging.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 08 Oct 2009 01:49:05 +0000
parents a2419d579802
children cc5bde43f76d
files lisp/ChangeLog lisp/cedet/ede/source.el
diffstat 2 files changed, 12 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Oct 07 20:07:31 2009 +0000
+++ b/lisp/ChangeLog	Thu Oct 08 01:49:05 2009 +0000
@@ -1,3 +1,9 @@
+2009-10-08  Chong Yidong  <cyd@stupidchicken.com>
+
+	* cedet/ede/source.el (ede-want-any-source-files-p)
+	(ede-want-any-auxiliary-files-p, ede-want-any-files-p): Return
+	search result.  This error was introduced while merging.
+
 2009-10-07  Juanma Barranquero  <lekktu@gmail.com>
 
 	* makefile.w32-in (WINS_UPDATES): Fix typo in previous change.
--- a/lisp/cedet/ede/source.el	Wed Oct 07 20:07:31 2009 +0000
+++ b/lisp/cedet/ede/source.el	Thu Oct 08 01:49:05 2009 +0000
@@ -106,19 +106,22 @@
   "Return non-nil if THIS will accept any source files in FILENAMES."
   (let (found)
     (while (and (not found) filenames)
-      (setq found (ede-want-file-source-p this (pop filenames))))))
+      (setq found (ede-want-file-source-p this (pop filenames))))
+    found))
 
 (defmethod ede-want-any-auxiliary-files-p ((this ede-sourcecode) filenames)
   "Return non-nil if THIS will accept any aux files in FILENAMES."
   (let (found)
     (while (and (not found) filenames)
-      (setq found (ede-want-file-auxiliary-p this (pop filenames))))))
+      (setq found (ede-want-file-auxiliary-p this (pop filenames))))
+    found))
 
 (defmethod ede-want-any-files-p ((this ede-sourcecode) filenames)
   "Return non-nil if THIS will accept any files in FILENAMES."
   (let (found)
     (while (and (not found) filenames)
-      (setq found (ede-want-file-p this (pop filenames))))))
+      (setq found (ede-want-file-p this (pop filenames))))
+    found))
 
 (defmethod ede-buffer-header-file ((this ede-sourcecode) filename)
   "Return a list of file names of header files for THIS with FILENAME.