From: Glenn Morris Date: Sun, 31 Oct 2010 22:55:44 +0000 (-0700) Subject: * lisp/cedet/ede/proj-elisp.el (project-compile-target): Fix previous change. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~422^2~31 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39a766fba62acc3a19ef6d28fe04bfe898339ada;p=emacs.git * lisp/cedet/ede/proj-elisp.el (project-compile-target): Fix previous change. --- diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index a1ed2e5cf80..9bf7eacf416 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog @@ -1,5 +1,6 @@ 2010-10-31 Glenn Morris + * 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 diff --git a/lisp/cedet/ede/proj-elisp.el b/lisp/cedet/ede/proj-elisp.el index bc5934c7e26..8ae00a8cc4c 100644 --- 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