mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

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

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

* grammars/wisent-grammar.el (auto-mode-alist): Change `$' to `\''
in regexp.
(wisent-make-parsers): Likewise.  Quote `.'.
This commit is contained in:
Andreas Schwab 2011-11-26 10:10:36 +01:00
parent 00db469c65
commit 509c74bd24
3 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
admin/ChangeLog
View File

@ -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.

6
admin/grammars/bovine-grammar.el
View File

@ -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)

4
admin/grammars/wisent-grammar.el
View File

@ -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)