]> code.delx.au - gnu-emacs/commitdiff
Move bovine-grammar and wisent-grammar into lisp/ directory.
authorChong Yidong <cyd@gnu.org>
Sat, 6 Oct 2012 14:18:35 +0000 (22:18 +0800)
committerChong Yidong <cyd@gnu.org>
Sat, 6 Oct 2012 14:18:35 +0000 (22:18 +0800)
* lisp/files.el (auto-mode-alist): Add .by and .wy (Semantic grammars).

* cedet/semantic/bovine/grammar.el:
* cedet/semantic/wisent/grammar.el: Move from admin/grammars.  Add
autoloads for bovine-grammar-mode and wisent-grammar-mode.

admin/ChangeLog
lisp/ChangeLog
lisp/cedet/ChangeLog
lisp/cedet/semantic/bovine/grammar.el [moved from admin/grammars/bovine-grammar.el with 98% similarity]
lisp/cedet/semantic/wisent/grammar.el [moved from admin/grammars/wisent-grammar.el with 99% similarity]
lisp/files.el

index 2da655231168cea510f4c142b851297c03de61be..8fe82ca36cbff4dad626232a735cf5d462ad4ade 100644 (file)
@@ -1,3 +1,8 @@
+2012-10-01  David Engster  <deng@randomsample.de>
+
+       * grammars/bovine-grammar.el:
+       * grammars/wisent-grammar.el: Move to lisp directory.
+
 2012-10-01  David Engster  <deng@randomsample.de>
 
        * grammars/bovine-grammar.el (bovine--grammar-newstyle-unquote):
index 87b54707e0a142c850c59766f26af5190b056b50..5d93a386a212f9bc52e7d85395f3ed00e7c9329e 100644 (file)
@@ -1,3 +1,7 @@
+2012-10-06  Chong Yidong  <cyd@gnu.org>
+
+       * files.el (auto-mode-alist): Add .by and .wy (Semantic grammars).
+
 2012-10-06  Ikumi Keita  <ikumi@ikumi.que.jp>  (tiny change)
 
        * international/characters.el: Fix simple mistake ((car chars) ->
index e066368d0116adc56c889809c0286c4cb83d9e25..9e20b4fbb4eca654198dbed0da00aa8e800b5adf 100644 (file)
@@ -1,3 +1,9 @@
+2012-10-06  Chong Yidong  <cyd@gnu.org>
+
+       * semantic/bovine/grammar.el:
+       * semantic/wisent/grammar.el: Move from admin/grammars.  Add
+       autoloads for bovine-grammar-mode and wisent-grammar-mode.
+
 2012-10-02  Chong Yidong  <cyd@gnu.org>
 
        * srecode.el, ede.el: Restore Version header.
similarity index 98%
rename from admin/grammars/bovine-grammar.el
rename to lisp/cedet/semantic/bovine/grammar.el
index a7289f6bafee59dc86640b033782b3c8bfab86e0..cc27c5b06469bfc494dd2b7c35bd516891bee38b 100644 (file)
@@ -1,4 +1,4 @@
-;;; bovine-grammar.el --- Bovine's input grammar mode
+;;; semantic/bovine/grammar.el --- Bovine's input grammar mode
 ;;
 ;; Copyright (C) 2002-2012 Free Software Foundation, Inc.
 ;;
@@ -143,7 +143,7 @@ expanded from elsewhere."
         (setq first (car form)
               form  (cdr form))
        ;; Hack for dealing with new reading of unquotes outside of
-       ;; backquote (introduced in rev. 102591 in emacs-bzr).
+       ;; backquote (introduced in 2010-12-06T16:37:26Z!monnier@iro.umontreal.ca).
        (when (and (>= emacs-major-version 24)
                   (listp first)
                   (or (equal (car first) '\,)
@@ -413,18 +413,17 @@ manual."
        ""))))
 
 (defvar bovine-grammar-menu
-  '("BY Grammar"
-    )
+  '("BY Grammar")
   "BY mode specific grammar menu.
 Menu items are appended to the common grammar menu.")
 
+;;;###autoload
 (define-derived-mode bovine-grammar-mode semantic-grammar-mode "BY"
   "Major mode for editing Bovine grammars."
   (semantic-grammar-setup-menu bovine-grammar-menu)
   (semantic-install-function-overrides
    '((grammar-parsetable-builder . bovine-grammar-parsetable-builder)
-     (grammar-setupcode-builder  . bovine-grammar-setupcode-builder)
-     )))
+     (grammar-setupcode-builder  . bovine-grammar-setupcode-builder))))
 
 (add-to-list 'auto-mode-alist '("\\.by\\'" . bovine-grammar-mode))
 
@@ -444,8 +443,6 @@ Menu items are appended to the common grammar menu.")
     )
   "Semantic grammar macros used in bovine grammars.")
 
-(provide 'semantic/bovine/grammar)
-
 (defun bovine-make-parsers ()
   "Generate Emacs' built-in Bovine-based parser files."
   (interactive)
@@ -504,4 +501,6 @@ Menu items are appended to the common grammar menu.")
          (replace-match packagename nil nil nil 1)
          (save-buffer))))))
 
-;;; bovine-grammar.el ends here
+(provide 'semantic/bovine/grammar)
+
+;;; semantic/bovine/grammar.el ends here
similarity index 99%
rename from admin/grammars/wisent-grammar.el
rename to lisp/cedet/semantic/wisent/grammar.el
index 25dba5be2d82461edc1d448cdb42e78434146b65..6fa52dc2adcc8d3e8b5c5ae67ef77af6c0c076fc 100644 (file)
@@ -1,4 +1,4 @@
-;;; wisent-grammar.el --- Wisent's input grammar mode
+;;; semantic/wisent/grammar.el --- Wisent's input grammar mode
 
 ;; Copyright (C) 2002-2012 Free Software Foundation, Inc.
 ;;
@@ -323,15 +323,13 @@ Return the expanded expression."
   "WY mode specific grammar menu.
 Menu items are appended to the common grammar menu.")
 
+;;;###autoload
 (define-derived-mode wisent-grammar-mode semantic-grammar-mode "WY"
   "Major mode for editing Wisent grammars."
   (semantic-grammar-setup-menu wisent-grammar-menu)
   (semantic-install-function-overrides
    '((grammar-parsetable-builder . wisent-grammar-parsetable-builder)
-     (grammar-setupcode-builder  . wisent-grammar-setupcode-builder)
-     )))
-
-(add-to-list 'auto-mode-alist '("\\.wy\\'" . wisent-grammar-mode))
+     (grammar-setupcode-builder  . wisent-grammar-setupcode-builder))))
 
 (defvar-mode-local wisent-grammar-mode semantic-grammar-macros
   '(
@@ -498,7 +496,7 @@ Menu items are appended to the common grammar menu.")
            (insert-file-contents filename)
            ;; Fix copyright header:
            (goto-char (point-min))
-           (when additional-copyright  
+           (when additional-copyright
              (re-search-forward "Copyright (C).*$")
              (insert "\n;; " additional-copyright))
            (re-search-forward "^;; Author:")
@@ -523,4 +521,6 @@ Menu items are appended to the common grammar menu.")
            (delete-trailing-whitespace)
            (write-region nil nil (expand-file-name filename))))))))
 
-;;; wisent-grammar.el ends here
+(provide 'semantic/wisent/grammar)
+
+;;; semantic/wisent/grammar.el ends here
index c3f9e1ef1a09afa4014c35586e2f52f684af1823..e030aff0ae25510c7ae3e32141b48a975037b1eb 100644 (file)
@@ -2326,6 +2326,8 @@ ARC\\|ZIP\\|LZH\\|LHA\\|ZOO\\|[JEW]AR\\|XPI\\|RAR\\|7Z\\)\\'" . archive-mode)
      ("\\.js\\'" . javascript-mode)
      ("\\.json\\'" . javascript-mode)
      ("\\.[ds]?vh?\\'" . verilog-mode)
+     ("\\.by\\'" . bovine-grammar-mode)
+     ("\\.wy\\'" . wisent-grammar-mode)
      ;; .emacs or .gnus or .viper following a directory delimiter in
      ;; Unix, MSDOG or VMS syntax.
      ("[]>:/\\]\\..*\\(emacs\\|gnus\\|viper\\)\\'" . emacs-lisp-mode)