diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-02-28 13:44:12 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-02-28 13:44:12 -0500 |
| commit | 088dfdd5d5fb9cd0e59919c7ea236265a5851d00 (patch) | |
| tree | 2fd87b41abab935e08abf9bdab3e56a76f6ab0d3 /lisp/cedet/semantic/bovine/grammar.el | |
| parent | e8edf4ad60d1ebeb3c8b6fd5196da1cae6546baa (diff) | |
| download | emacs-088dfdd5d5fb9cd0e59919c7ea236265a5851d00.tar.gz | |
Fix header comment in generated bovine grammar file
* lisp/cedet/semantic/bovine/grammar.el (bovine--make-parser-1):
Fix header comment in generated scm-by.el.
Diffstat (limited to 'lisp/cedet/semantic/bovine/grammar.el')
| -rw-r--r-- | lisp/cedet/semantic/bovine/grammar.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/bovine/grammar.el b/lisp/cedet/semantic/bovine/grammar.el index 0eab01b58b1..65c856a8cae 100644 --- a/lisp/cedet/semantic/bovine/grammar.el +++ b/lisp/cedet/semantic/bovine/grammar.el @@ -475,6 +475,7 @@ Menu items are appended to the common grammar menu.") ;; This is with-demoted-errors. (condition-case err (with-current-buffer (find-file-noselect infile) + (setq infile buffer-file-name) (if outdir (setq default-directory outdir)) (semantic-grammar-create-package nil t)) (error (message "%s" (error-message-string err)) nil))) @@ -509,8 +510,12 @@ Menu items are appended to the common grammar menu.") ;;; Commentary: ;; -;; This file was generated from admin/grammars/" - lang ".by. +;; This file was generated from " + (if (string-match "\\(OFFadmin/grammars/.*\\.by\\)\\'" infile) + (match-string 1 infile) + (concat "admin/grammars/" + (if (string-equal lang "scm") "scheme" lang) ".by")) +". ;;; Code: ") |