* lisp/cedet/ede/proj-elisp.el (project-compile-target): Fix previous change.

diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index a1ed2e5cf80eac98a768518fe0c60a870ca0218b..9bf7eacf4168d51698ad7617f603ce80814d8182 100644 (file)
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,5 +1,6 @@
 2010-10-31  Glenn Morris  <rgm@gnu.org>
 
+       * ede/proj-elisp.el (project-compile-target): Fix previous change.
        * semantic/ede-grammar.el (project-compile-target): Fix previous change.
 
 2010-10-31  Julien Danjou  <julien@danjou.info>

diff --git a/lisp/cedet/ede/proj-elisp.el b/lisp/cedet/ede/proj-elisp.el
index bc5934c7e26454b3768b26e9130c5574a2129fbe..8ae00a8cc4c2cf27b50193b18ffe115c5e0471a3 100644 (file)
--- a/lisp/cedet/ede/proj-elisp.el
+++ b/lisp/cedet/ede/proj-elisp.el
@@ -129,15 +129,13 @@ Bonus: Return a cons cell: (COMPILED . UPTODATE)."
         (utd 0))
     (mapc (lambda (src)
            (let* ((fsrc (expand-file-name src dir))
-                  (elc (concat (file-name-sans-extension fsrc) ".elc"))
-                  )
-             (if (eq (byte-recompile-file fsrc nil 0)) t)
+                  (elc (concat (file-name-sans-extension fsrc) ".elc")))
+             (if (eq (byte-recompile-file fsrc nil 0) t)
                   (setq comp (1+ comp))
                (setq utd (1+ utd)))))
            (oref obj source))
     (message "All Emacs Lisp sources are up to date in %s" (object-name obj))
-    (cons comp utd)
-    ))
+    (cons comp utd)))
 
 (defmethod ede-update-version-in-source ((this ede-proj-target-elisp) version)
   "In a Lisp file, updated a version string for THIS to VERSION.
@@ -387,5 +385,4 @@ Argument THIS is the target which needs to insert an info file."
 
 (provide 'ede/proj-elisp)
 
-;; arch-tag: 3802c94b-d04d-4ecf-9bab-b29ed6e77588
 ;;; ede/proj-elisp.el ends here