emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r106522: * grammars/bovine-grammar.el


From: Andreas Schwab
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r106522: * grammars/bovine-grammar.el (auto-mode-alist): Change `$' to `\''
Date: Sat, 26 Nov 2011 10:10:36 +0100
User-agent: Bazaar (2.3.1)

------------------------------------------------------------
revno: 106522
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Sat 2011-11-26 10:10:36 +0100
message:
  * 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 `.'.
modified:
  admin/ChangeLog
  admin/grammars/bovine-grammar.el
  admin/grammars/wisent-grammar.el
=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog   2011-11-25 07:14:48 +0000
+++ b/admin/ChangeLog   2011-11-26 09:10:36 +0000
@@ -1,3 +1,13 @@
+2011-11-26  Andreas Schwab  <address@hidden>
+
+       * 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  <address@hidden>
 
        * CPP-DEFINES (VIRT_ADDR_VARIES): Remove.

=== modified file 'admin/grammars/bovine-grammar.el'
--- a/admin/grammars/bovine-grammar.el  2011-11-26 06:28:10 +0000
+++ b/admin/grammars/bovine-grammar.el  2011-11-26 09:10:36 +0000
@@ -434,7 +434,7 @@
      (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 @@
   (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 @@
              (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)

=== modified file 'admin/grammars/wisent-grammar.el'
--- a/admin/grammars/wisent-grammar.el  2011-11-26 06:28:10 +0000
+++ b/admin/grammars/wisent-grammar.el  2011-11-26 09:10:36 +0000
@@ -331,7 +331,7 @@
      (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 @@
   (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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]