aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMark Oteiza2017-09-28 07:52:00 -0400
committerMark Oteiza2017-09-28 07:52:00 -0400
commit551594e951642a043862dabb987facfc0253f7d3 (patch)
treed3cf5e9e3138044d134dd2c1253f9de4937db637
parent1f02ae39310f15bf683642b9aee1cf162bd391e6 (diff)
downloademacs-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.el2
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'.
544The M, BS, and ARGS arguments are as per that function. DOC is 544The M, BS, and ARGS arguments are as per that function. DOC is
545the constant's documentation." 545the 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.
571CSS contains a list of syntax specifications of the form (CHAR . SYNTAX)." 572CSS 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)))