* semantic/ede-grammar.el (project-compile-target): Fix grammar

  compilation after introduction of %provide statement.

diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index 524eec4ad5f822723fd5eb257b0fb610f84fceb5..453939e6ce1f21dad36fd52c1c9a185f7efe5f19 100644 (file)
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-07  David Engster  <deng@randomsample.de>
+
+       * semantic/ede-grammar.el (project-compile-target): Fix grammar
+       compilation after introduction of %provide statement.
+
 2012-10-07  David Engster  <deng@randomsample.de>
 
        * semantic.el (semantic-new-buffer-setup-functions): Remove setup

diff --git a/lisp/cedet/semantic/ede-grammar.el b/lisp/cedet/semantic/ede-grammar.el
index c92fcabecb18785d27ef69d35c840d15f0834349..16cf0ca96a24371fbb0cb0a6509512ee09399ead 100644 (file)
--- a/lisp/cedet/semantic/ede-grammar.el
+++ b/lisp/cedet/semantic/ede-grammar.el
@@ -143,12 +143,10 @@ Lays claim to all -by.el, and -wy.el files."
         (utd 0))
     (mapc (lambda (src)
            (with-current-buffer (find-file-noselect src)
-             (save-excursion
-               (semantic-grammar-create-package))
-             ;; After compile, the current buffer is the compiled grammar.
-             ;; Save and compile it.
-             (save-buffer)
-             (let* ((src (buffer-file-name))
+             (let* ((package (semantic-grammar-create-package))
+                    (fname (progn (string-match ".*/\\(.+\\.el\\)" package)
+                                  (match-string 1 package)))
+                    (src (with-current-buffer fname (buffer-file-name)))
                     (csrc (concat (file-name-sans-extension src) ".elc")))
                (if (< emacs-major-version 24)
                    ;; Does not have `byte-recompile-file'