diff options
| -rw-r--r-- | admin/ChangeLog | 10 | ||||
| -rw-r--r-- | admin/grammars/bovine-grammar.el | 6 | ||||
| -rw-r--r-- | 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 <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) |