* grammars/bovine-grammar.el (auto-mode-alist): Change `$' to `\''

in regexp.
(bovine-make-parsers): Likewise.  Quote `.'.

* grammars/wisent-grammar.el (auto-mode-alist): Change `$' to `\''
in regexp.
(wisent-make-parsers): Likewise.  Quote `.'.

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 94cf711..34619a7 100644 (file)
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,13 @@
+2011-11-26  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * grammars/wisent-grammar.el (auto-mode-alist): Change `$' to `\''
+       in regexp.
+       (wisent-make-parsers): Likewise.  Quote `.'.
+
+       * grammars/bovine-grammar.el (auto-mode-alist): Change `$' to `\''
+       in regexp.
+       (bovine-make-parsers): Likewise.  Quote `.'.
+
 2011-11-20  Andreas Schwab  <schwab@linux-m68k.org>
 
        * CPP-DEFINES (VIRT_ADDR_VARIES): Remove.

diff --git a/admin/grammars/bovine-grammar.el b/admin/grammars/bovine-grammar.el
index 3ff15fa..2201668 100644 (file)
--- a/admin/grammars/bovine-grammar.el
+++ b/admin/grammars/bovine-grammar.el
@@ -434,7 +434,7 @@ Menu items are appended to the common grammar menu.")
      (grammar-setupcode-builder  . bovine-grammar-setupcode-builder)
      )))
 
-(add-to-list 'auto-mode-alist '("\\.by$" . bovine-grammar-mode))
+(add-to-list 'auto-mode-alist '("\\.by\\'" . bovine-grammar-mode))
 
 (defvar-mode-local bovine-grammar-mode semantic-grammar-macros
   '(
@@ -459,7 +459,7 @@ Menu items are appended to the common grammar menu.")
   (semantic-mode 1)
   ;; Loop through each .by file in current directory, and run
   ;; `semantic-grammar-batch-build-one-package' to build the grammar.
-  (dolist (f (directory-files default-directory nil ".by$"))
+  (dolist (f (directory-files default-directory nil "\\.by\\'"))
     (let ((packagename
            (condition-case err
                (with-current-buffer (find-file-noselect f)
@@ -467,7 +467,7 @@ Menu items are appended to the common grammar menu.")
              (error (message "%s" (error-message-string err)) nil)))
          lang)
       (when (and packagename
-                (string-match "^semantic-\\(.*\\)-by.el$" packagename))
+                (string-match "^semantic-\\(.*\\)-by\\.el\\'" packagename))
        (setq lang (match-string 1 packagename))
        (with-temp-buffer
          (insert-file-contents packagename)

diff --git a/admin/grammars/wisent-grammar.el b/admin/grammars/wisent-grammar.el
index 98b0cae..66045c2 100644 (file)
--- a/admin/grammars/wisent-grammar.el
+++ b/admin/grammars/wisent-grammar.el
@@ -331,7 +331,7 @@ Menu items are appended to the common grammar menu.")
      (grammar-setupcode-builder  . wisent-grammar-setupcode-builder)
      )))
 
-(add-to-list 'auto-mode-alist '("\\.wy$" . wisent-grammar-mode))
+(add-to-list 'auto-mode-alist '("\\.wy\\'" . wisent-grammar-mode))
 
 (defvar-mode-local wisent-grammar-mode semantic-grammar-macros
   '(
@@ -484,7 +484,7 @@ Menu items are appended to the common grammar menu.")
   (semantic-mode 1)
   ;; Loop through each .wy file in current directory, and run
   ;; `semantic-grammar-batch-build-one-package' to build the grammar.
-  (dolist (f (directory-files default-directory nil ".wy$"))
+  (dolist (f (directory-files default-directory nil "\\.wy\\'"))
     (let ((packagename
            (condition-case err
                (with-current-buffer (find-file-noselect f)