[Emacs-diffs] /srv/bzr/emacs/trunk r102177: * lisp/cedet/ede/proj-elisp.el (project-compile-target): Fix previous change.

[Glenn Morris]

------------------------------------------------------------
revno: 102177
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-31 15:55:44 -0700
message:
  * lisp/cedet/ede/proj-elisp.el (project-compile-target): Fix previous change.
modified:
  lisp/cedet/ChangeLog
  lisp/cedet/ede/proj-elisp.el

=== modified file 'lisp/cedet/ChangeLog'
--- a/lisp/cedet/ChangeLog      2010-10-31 22:43:06 +0000
+++ b/lisp/cedet/ChangeLog      2010-10-31 22:55:44 +0000
@@ -1,5 +1,6 @@
 2010-10-31  Glenn Morris  <address@hidden>
 
+       * 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  <address@hidden>

=== modified file 'lisp/cedet/ede/proj-elisp.el'
--- a/lisp/cedet/ede/proj-elisp.el      2010-10-31 19:25:39 +0000
+++ b/lisp/cedet/ede/proj-elisp.el      2010-10-31 22:55:44 +0000
@@ -129,15 +129,13 @@
         (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 @@
 
 (provide 'ede/proj-elisp)
 
-;; arch-tag: 3802c94b-d04d-4ecf-9bab-b29ed6e77588
 ;;; ede/proj-elisp.el ends here