* 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 `.'.

3 files changed, 15 insertions, 5 deletions

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 94cf71162df..34619a759c4 100644
--- 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 3ff15fab66f..2201668731d 100644
--- 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 98b0caee60b..66045c2294d 100644
--- 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)