aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2000-09-29 03:27:28 +0000
committerStefan Monnier2000-09-29 03:27:28 +0000
commit5d78d57daf53f6556fd9c5ff9179efe9878cdaff (patch)
treef32db24a7ef2bdc250fbcd2e2b7e29f019bf160b
parent57ce63c47017b2f81b576019f5a3fc7de58f84ff (diff)
downloademacs-5d78d57daf53f6556fd9c5ff9179efe9878cdaff.tar.gz
emacs-5d78d57daf53f6556fd9c5ff9179efe9878cdaff.zip
(easy-mmode-define-keymap): Autoload.
(easy-mmode-defmap): Remove the now useless autoload.
-rw-r--r--lisp/emacs-lisp/easy-mmode.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 0d1b092e515..58def617a91 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -283,6 +283,7 @@ in which `%s' turns it on."
283 (easy-mmode-set-keymap-parents m parents) 283 (easy-mmode-set-keymap-parents m parents)
284 m)))))) 284 m))))))
285 285
286;;;###autoload
286(defun easy-mmode-define-keymap (bs &optional name m args) 287(defun easy-mmode-define-keymap (bs &optional name m args)
287 "Return a keymap built from bindings BS. 288 "Return a keymap built from bindings BS.
288BS must be a list of (KEY . BINDING) where 289BS must be a list of (KEY . BINDING) where
@@ -322,11 +323,9 @@ ARGS is a list of additional arguments."
322 323
323;;;###autoload 324;;;###autoload
324(defmacro easy-mmode-defmap (m bs doc &rest args) 325(defmacro easy-mmode-defmap (m bs doc &rest args)
325 `(progn 326 `(defconst ,m
326 (autoload 'easy-mmode-define-keymap "easy-mmode") 327 (easy-mmode-define-keymap ,bs nil (if (boundp ',m) ,m) ,(cons 'list args))
327 (defconst ,m 328 ,doc))
328 (easy-mmode-define-keymap ,bs nil (if (boundp ',m) ,m) ,(cons 'list args))
329 ,doc)))
330 329
331 330
332;;; 331;;;