diff options
| author | David Engster <dengste@eml.cc> | 2012-10-07 20:19:58 +0200 |
|---|---|---|
| committer | David Engster <dengste@eml.cc> | 2012-10-07 20:19:58 +0200 |
| commit | 31e4cc2a189ef7b0de5057a90580d80634bd3d06 (patch) | |
| tree | e0532cbe924b584ee7ccc3fffff065340c69caca /lisp/cedet/semantic | |
| parent | 9322b306fc1a44411b69587995f422e7f61ab1c5 (diff) | |
| download | emacs-31e4cc2a189ef7b0de5057a90580d80634bd3d06.tar.gz emacs-31e4cc2a189ef7b0de5057a90580d80634bd3d06.tar.bz2 emacs-31e4cc2a189ef7b0de5057a90580d80634bd3d06.zip | |
* semantic/ede-grammar.el (project-compile-target): Fix grammar
compilation after introduction of %provide statement.
Diffstat (limited to 'lisp/cedet/semantic')
| -rw-r--r-- | lisp/cedet/semantic/ede-grammar.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/cedet/semantic/ede-grammar.el b/lisp/cedet/semantic/ede-grammar.el index c92fcabecb1..16cf0ca96a2 100644 --- 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' |