[xyzzy:02134] Re: key Binding

[Yamamoto Shinji <sinj@xxxxxxxxxxxx>]

山本です。


At Fri, 12 Mar 1999 22:09:12 +0900, Yamamoto wrote:

> 諦めます。m(__)m

異常に往生際が悪いので、次ので我慢することにしました。

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

(defun foo-dummy (key)
  (interactive "k")
  (if (eq key #\C-f)
      (foo)
    (error "~s" key)
  ))

-- 
山本真二   sinj@xxxxxxxxxxxx