diff options
| author | Stefan Monnier | 2000-11-12 18:09:09 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-11-12 18:09:09 +0000 |
| commit | 165958d2b4194b75afd0d57b8095cdc036e7ee7b (patch) | |
| tree | 42103de5925ec9093975a200b9f086b3d93c7eac | |
| parent | cd632e57a5215e9429f1459f1aef09b9eef358ba (diff) | |
| download | emacs-165958d2b4194b75afd0d57b8095cdc036e7ee7b.tar.gz emacs-165958d2b4194b75afd0d57b8095cdc036e7ee7b.zip | |
(easy-mmode-define-keymap):
Add keyword arg :name.
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index e3c82e445de..2dde3559088 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -315,12 +315,13 @@ BS must be a list of (KEY . BINDING) where | |||
| 315 | KEY and BINDINGS are suitable for `define-key'. | 315 | KEY and BINDINGS are suitable for `define-key'. |
| 316 | Optional NAME is passed to `make-sparse-keymap'. | 316 | Optional NAME is passed to `make-sparse-keymap'. |
| 317 | Optional map M can be used to modify an existing map. | 317 | Optional map M can be used to modify an existing map. |
| 318 | ARGS is a list of additional arguments." | 318 | ARGS is a list of additional keyword arguments." |
| 319 | (let (inherit dense suppress) | 319 | (let (inherit dense suppress) |
| 320 | (while args | 320 | (while args |
| 321 | (let ((key (pop args)) | 321 | (let ((key (pop args)) |
| 322 | (val (pop args))) | 322 | (val (pop args))) |
| 323 | (case key | 323 | (case key |
| 324 | (:name (setq name val)) | ||
| 324 | (:dense (setq dense val)) | 325 | (:dense (setq dense val)) |
| 325 | (:inherit (setq inherit val)) | 326 | (:inherit (setq inherit val)) |
| 326 | (:group) | 327 | (:group) |