(easy-mmode-set-keymap-parents m parents)
m))))))
+;;;###autoload
(defun easy-mmode-define-keymap (bs &optional name m args)
"Return a keymap built from bindings BS.
BS must be a list of (KEY . BINDING) where
;;;###autoload
(defmacro easy-mmode-defmap (m bs doc &rest args)
- `(progn
- (autoload 'easy-mmode-define-keymap "easy-mmode")
- (defconst ,m
- (easy-mmode-define-keymap ,bs nil (if (boundp ',m) ,m) ,(cons 'list args))
- ,doc)))
+ `(defconst ,m
+ (easy-mmode-define-keymap ,bs nil (if (boundp ',m) ,m) ,(cons 'list args))
+ ,doc))
\f
;;;