From: Glenn Morris <rgm@gnu.org>
Date: Wed, 28 Feb 2018 18:44:12 +0000 (-0500)
Subject: Fix header comment in generated bovine grammar file
X-Git-Tag: emacs-27.0.90~5595
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=088dfdd5d5fb9cd0e59919c7ea236265a5851d00;p=emacs.git

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.
---

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:
 ")