[Emacs-diffs] master 088dfdd: Fix header comment in generated bovine grammar file

[Glenn Morris]

branch: master
commit 088dfdd5d5fb9cd0e59919c7ea236265a5851d00
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    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.
---
 lisp/cedet/semantic/bovine/grammar.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/cedet/semantic/bovine/grammar.el 
b/lisp/cedet/semantic/bovine/grammar.el
index 0eab01b..65c856a 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:
 ")