diff options
| author | Stefan Monnier | 2000-09-29 03:27:28 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-09-29 03:27:28 +0000 |
| commit | 5d78d57daf53f6556fd9c5ff9179efe9878cdaff (patch) | |
| tree | f32db24a7ef2bdc250fbcd2e2b7e29f019bf160b | |
| parent | 57ce63c47017b2f81b576019f5a3fc7de58f84ff (diff) | |
| download | emacs-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.el | 9 |
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. |
| 288 | BS must be a list of (KEY . BINDING) where | 289 | BS 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 | ;;; |