[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 088dfdd: Fix header comment in generated bovine gra
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 088dfdd: Fix header comment in generated bovine grammar file |
Date: |
Wed, 28 Feb 2018 13:44:21 -0500 (EST) |
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:
")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 088dfdd: Fix header comment in generated bovine grammar file,
Glenn Morris <=