Re: Browse skeleton positions

[Stefan Monnier]

> (defconst skeleton-position-mode-map
>   (let ((kmap (make-sparse-keymap)))
>     (suppress-keymap kmap)
>     (define-key kmap "q" 'turn-off-skeleton-position-mode)
>     (define-key kmap "\C-m" 'skeleton-position-exit)
>     (define-key kmap "n" 'skeleton-position-next)
>     (define-key kmap "p" 'skeleton-position-prev)
>     (define-key kmap "a" 'skeleton-position-first)
>     (define-key kmap "z" 'skeleton-position-last)
>     kmap)
>   "Keymap used in Skeleton Position mode.")

> (defconst skeleton-position-carpal-mode-map
>   (let ((kmap (make-sparse-keymap)))
>     (define-key kmap "\C-c+q" 'turn-off-skeleton-position-carpal-mode)
>     (define-key kmap "\C-c+\C-m" 'skeleton-position-carpal-exit)
>     (define-key kmap "\C-c+n" 'skeleton-position-carpal-next)
>     (define-key kmap "\C-c+p" 'skeleton-position-carpal-prev)
>     (define-key kmap "\C-c+a" 'skeleton-position-carpal-first)
>     (define-key kmap "\C-c+z" 'skeleton-position-carpal-last)
>     kmap)
>   "Keymap used in Skeleton Position Carpal mode.")

How 'bout:

  (defvar s-p-c-prefix [?\C-c ?+])
  (defvar s-p-c-m-m
     (let ((map (make-sparse-keymap)))
       (define-key map s-p-c-prefix skeleton-position-mode-map)))

So you avoid redundancy.  The prefix variable is so that people
can use another prefix (ESC is often a good choice for some users
although it's a bad default choice).


-- Stefan