branch: externals/wisitoken-grammar-mode commit 39f8d03a989e76a37c44af683647fc02cca7d79c Merge: 5322510 fae4953 Author: Stephen Leake <stephen_le...@stephe-leake.org> Commit: Stephen Leake <stephen_le...@stephe-leake.org>
* wisitoken-grammar-mmm.el: Delete; merged with wisitoken-grammar-mode.el * wisitoken-grammar-mode.el: Resolve FIXME. --- wisitoken-grammar-mmm.el | 44 ++++++++++++++++++++++++++++++++++++++++++++ wisitoken-grammar-mode.el | 2 -- 2 files changed, 44 insertions(+), 2 deletions(-) diff --git a/wisitoken-grammar-mmm.el b/wisitoken-grammar-mmm.el new file mode 100644 index 0000000..cc19a7c --- /dev/null +++ b/wisitoken-grammar-mmm.el @@ -0,0 +1,44 @@ +;;; Define multi-major-mode stuff for wisitoken-grammar mode. -*- lexical-binding:t -*- + +;; Copyright (C) 2019 Free Software Foundation, Inc. + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. + +(require 'mmm-mode) + +(mmm-add-classes + '((wisi-action + :match-submode wisitoken-grammar-mmm-submode + :face mmm-code-submode-face + :front "%(" + :back ")%" + :insert ((?a wisi-action nil @ "%(" @ "" _ "" @ ")%"))) + (wisi-code + :match-submode wisi-mmm-submode + :face mmm-code-submode-face + :front "%{" + :back "}%" + :insert ((?a wisi-code nil @ "%{" @ "" _ "" @ "}%"))) + )) + +(defvar wisitoken-grammar-action-mode) ;; in wisitoken-grammar-mode.el +(defun wisitoken-grammar-mmm-submode (_delim) + "for :match-submode" + wisitoken-grammar-action-mode) + +(add-to-list 'mmm-mode-ext-classes-alist '(wisitoken-grammar-mode nil wisi-action)) +(add-to-list 'mmm-mode-ext-classes-alist '(wisitoken-grammar-mode nil wisi-code)) + +(provide 'wisitoken-grammar-mmm) +;;; end of file diff --git a/wisitoken-grammar-mode.el b/wisitoken-grammar-mode.el index 1f6e53a..42bfe65 100644 --- a/wisitoken-grammar-mode.el +++ b/wisitoken-grammar-mode.el @@ -362,8 +362,6 @@ Otherwise insert a plain new line." (add-hook 'xref-backend-functions #'wisitoken-grammar--xref-backend nil ;; append t) - (add-hook 'before-save-hook 'delete-trailing-whitespace nil t) - (add-hook 'before-save-hook 'copyright-update nil t) (wisi-setup :indent-calculate nil