Remove unnecessary let-bindings in bookmark.el (Bug#6515)

[bpt/emacs.git] / lisp / cedet / ede / source.el

diff --git a/lisp/cedet/ede/source.el b/lisp/cedet/ede/source.el
index ca566d0..88167de 100644 (file)
--- a/lisp/cedet/ede/source.el
+++ b/lisp/cedet/ede/source.el
@@ -1,6 +1,6 @@
 ;; ede/source.el --- EDE source code object
 
-;;; Copyright (C) 2000, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2008, 2009, 2010  Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Keywords: project, make
@@ -106,19 +106,22 @@ that they are willing to use.")
   "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.
@@ -139,7 +142,7 @@ Used to guess header files, but uses the auxsource regular expression."
   (object-assoc name :name ede-sourcecode-list))
 
 (defun ede-source-match (file)
-  "Find the list of soucecode objects which matches FILE."
+  "Find the list of sourcecode objects which matches FILE."
   (let ((lst ede-sourcecode-list)
        (match nil))
     (while lst
@@ -167,4 +170,5 @@ Used to guess header files, but uses the auxsource regular expression."
 
 (provide 'ede/source)
 
+;; arch-tag: 60165fe2-920e-4adf-8531-25655388467d
 ;;; ede/source.el ends here