diff options
| author | Mark Oteiza | 2017-09-28 07:52:00 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2017-09-28 07:52:00 -0400 |
| commit | 551594e951642a043862dabb987facfc0253f7d3 (patch) | |
| tree | d3cf5e9e3138044d134dd2c1253f9de4937db637 | |
| parent | 1f02ae39310f15bf683642b9aee1cf162bd391e6 (diff) | |
| download | emacs-551594e951642a043862dabb987facfc0253f7d3.tar.gz emacs-551594e951642a043862dabb987facfc0253f7d3.zip | |
Add indent spec to easy-mmode macros
Ideally these macros should expand to the proper code instead of
relegating all the work to a function call.
* lisp/emacs-lisp/easy-mmode.el (easy-mmode-defmap):
(easy-mmode-define-syntax): Add indent spec.
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index bf087fc2e9a..643a65f48d9 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -543,6 +543,7 @@ Valid keywords and arguments are: | |||
| 543 | "Define a constant M whose value is the result of `easy-mmode-define-keymap'. | 543 | "Define a constant M whose value is the result of `easy-mmode-define-keymap'. |
| 544 | The M, BS, and ARGS arguments are as per that function. DOC is | 544 | The M, BS, and ARGS arguments are as per that function. DOC is |
| 545 | the constant's documentation." | 545 | the constant's documentation." |
| 546 | (declare (indent 1)) | ||
| 546 | `(defconst ,m | 547 | `(defconst ,m |
| 547 | (easy-mmode-define-keymap ,bs nil (if (boundp ',m) ,m) ,(cons 'list args)) | 548 | (easy-mmode-define-keymap ,bs nil (if (boundp ',m) ,m) ,(cons 'list args)) |
| 548 | ,doc)) | 549 | ,doc)) |
| @@ -569,6 +570,7 @@ the constant's documentation." | |||
| 569 | (defmacro easy-mmode-defsyntax (st css doc &rest args) | 570 | (defmacro easy-mmode-defsyntax (st css doc &rest args) |
| 570 | "Define variable ST as a syntax-table. | 571 | "Define variable ST as a syntax-table. |
| 571 | CSS contains a list of syntax specifications of the form (CHAR . SYNTAX)." | 572 | CSS contains a list of syntax specifications of the form (CHAR . SYNTAX)." |
| 573 | (declare (indent 1)) | ||
| 572 | `(progn | 574 | `(progn |
| 573 | (autoload 'easy-mmode-define-syntax "easy-mmode") | 575 | (autoload 'easy-mmode-define-syntax "easy-mmode") |
| 574 | (defconst ,st (easy-mmode-define-syntax ,css ,(cons 'list args)) ,doc))) | 576 | (defconst ,st (easy-mmode-define-syntax ,css ,(cons 'list args)) ,doc))) |