Commit 509c74bd authored by Andreas Schwab's avatar Andreas Schwab

* 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 `.'.
parent 00db469c
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.
......
......@@ -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)
......
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment