From 509c74bd24fb1b32ccbe09be5ecb724590916e08 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 26 Nov 2011 10:10:36 +0100 Subject: * 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 `.'. --- admin/ChangeLog | 10 ++++++++++ admin/grammars/bovine-grammar.el | 6 +++--- admin/grammars/wisent-grammar.el | 4 ++-- 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 + + * 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 * 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) -- cgit v1.2.3