diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-05-22 12:13:28 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-05-22 12:17:45 -0400 |
| commit | a1a6e6c5c44e0930784de67fc6b25c3cc43e0ee4 (patch) | |
| tree | ecad6c77a9e39832f968fd965c5f8eeb2a5f425a /lisp/cedet/semantic/wisent/grammar.el | |
| parent | 2ca4925d2b9646493e90c660ce2b8a1bc4378e71 (diff) | |
| download | emacs-a1a6e6c5c44e0930784de67fc6b25c3cc43e0ee4.tar.gz | |
wisent/grammar.el: Prefer `define-mode-local-override`
* lisp/cedet/semantic/wisent/grammar.el
(semantic-grammar-parsetable-builder, semantic-grammar-setupcode-builder):
Override with `define-mode-local-override`.
(wisent-grammar-mode): Don't override them with
`semantic-install-function-overrides`.
Diffstat (limited to 'lisp/cedet/semantic/wisent/grammar.el')
| -rw-r--r-- | lisp/cedet/semantic/wisent/grammar.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/cedet/semantic/wisent/grammar.el b/lisp/cedet/semantic/wisent/grammar.el index 5ca22bac86c..a4104e333d3 100644 --- a/lisp/cedet/semantic/wisent/grammar.el +++ b/lisp/cedet/semantic/wisent/grammar.el @@ -284,13 +284,15 @@ Return the expanded expression." (assocs (wisent-grammar-assocs))) (cons terminals (cons assocs nonterminals)))) -(defun wisent-grammar-parsetable-builder () +(define-mode-local-override semantic-grammar-parsetable-builder + wisent-grammar-mode () "Return the value of the parser table." `(wisent-compiled-grammar ,(wisent-grammar-grammar) ,(semantic-grammar-start))) -(defun wisent-grammar-setupcode-builder () +(define-mode-local-override semantic-grammar-setupcode-builder + wisent-grammar-mode () "Return the parser setup code." (format "(semantic-install-function-overrides\n\ @@ -322,10 +324,7 @@ Menu items are appended to the common grammar menu.") (define-derived-mode wisent-grammar-mode semantic-grammar-mode "WY" "Major mode for editing Wisent grammars." (semantic-grammar-setup-menu wisent-grammar-menu) - (setq-local semantic-grammar-require-form '(require 'semantic/wisent)) - (semantic-install-function-overrides - '((semantic-grammar-parsetable-builder . wisent-grammar-parsetable-builder) - (semantic-grammar-setupcode-builder . wisent-grammar-setupcode-builder)))) + (setq-local semantic-grammar-require-form '(require 'semantic/wisent))) (defvar-mode-local wisent-grammar-mode semantic-grammar-macros '( |