diff options
| author | Glenn Morris | 2010-10-31 15:55:44 -0700 |
|---|---|---|
| committer | Glenn Morris | 2010-10-31 15:55:44 -0700 |
| commit | 39a766fba62acc3a19ef6d28fe04bfe898339ada (patch) | |
| tree | b9da996a64d779d5a2178401efc20e9e676e5297 | |
| parent | a8336650b85d749a182afdddab3ff12a7954583c (diff) | |
| download | emacs-39a766fba62acc3a19ef6d28fe04bfe898339ada.tar.gz emacs-39a766fba62acc3a19ef6d28fe04bfe898339ada.zip | |
* lisp/cedet/ede/proj-elisp.el (project-compile-target): Fix previous change.
| -rw-r--r-- | lisp/cedet/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/cedet/ede/proj-elisp.el | 9 |
2 files changed, 4 insertions, 6 deletions
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 @@ | |||
| 1 | 2010-10-31 Glenn Morris <rgm@gnu.org> | 1 | 2010-10-31 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * ede/proj-elisp.el (project-compile-target): Fix previous change. | ||
| 3 | * semantic/ede-grammar.el (project-compile-target): Fix previous change. | 4 | * semantic/ede-grammar.el (project-compile-target): Fix previous change. |
| 4 | 5 | ||
| 5 | 2010-10-31 Julien Danjou <julien@danjou.info> | 6 | 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 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)." | |||
| 129 | (utd 0)) | 129 | (utd 0)) |
| 130 | (mapc (lambda (src) | 130 | (mapc (lambda (src) |
| 131 | (let* ((fsrc (expand-file-name src dir)) | 131 | (let* ((fsrc (expand-file-name src dir)) |
| 132 | (elc (concat (file-name-sans-extension fsrc) ".elc")) | 132 | (elc (concat (file-name-sans-extension fsrc) ".elc"))) |
| 133 | ) | 133 | (if (eq (byte-recompile-file fsrc nil 0) t) |
| 134 | (if (eq (byte-recompile-file fsrc nil 0)) t) | ||
| 135 | (setq comp (1+ comp)) | 134 | (setq comp (1+ comp)) |
| 136 | (setq utd (1+ utd))))) | 135 | (setq utd (1+ utd))))) |
| 137 | (oref obj source)) | 136 | (oref obj source)) |
| 138 | (message "All Emacs Lisp sources are up to date in %s" (object-name obj)) | 137 | (message "All Emacs Lisp sources are up to date in %s" (object-name obj)) |
| 139 | (cons comp utd) | 138 | (cons comp utd))) |
| 140 | )) | ||
| 141 | 139 | ||
| 142 | (defmethod ede-update-version-in-source ((this ede-proj-target-elisp) version) | 140 | (defmethod ede-update-version-in-source ((this ede-proj-target-elisp) version) |
| 143 | "In a Lisp file, updated a version string for THIS to VERSION. | 141 | "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." | |||
| 387 | 385 | ||
| 388 | (provide 'ede/proj-elisp) | 386 | (provide 'ede/proj-elisp) |
| 389 | 387 | ||
| 390 | ;; arch-tag: 3802c94b-d04d-4ecf-9bab-b29ed6e77588 | ||
| 391 | ;;; ede/proj-elisp.el ends here | 388 | ;;; ede/proj-elisp.el ends here |