[xyzzy:02131] key Binding

[Yamamoto Shinji <sinj@xxxxxxxxxxxx>]

こんにちは、山本です。


モードに対するローカルなキーの割り当て方が分からないのでどなたか
教えてください。

以下のようにテストしたのですが云う事を効いてくれません。
何処がおかしいのでしょうか？

(defvar foo-spec-map (make-sparse-keymap))
(setf (symbol-function 'foo-specific-command-prefix) foo-spec-map)
(define-key foo-spec-map '(#\C-c #\C-f) 'foo)

(defvar foo-mode-map (make-sparse-keymap))
(define-key foo-mode-map '#\C-c 'foo-specific-command-prefix)

(defun foo-mode ()
  (interactive)
  (kill-all-local-variables)
  (setq mode-name "foo")
  (setq buffer-mode 'foo-mode)
  (use-keymap foo-mode-map))

宜しくお願いします。

-- 
山本真二   sinj@xxxxxxxxxxxx