 
 
 ;; 占有したキーの代替
-(define-key my-atkey-map my-atkey-prefix '(lambda () (interactive) (insert my-atkey-char)))
+(define-key my-atkey-map my-atkey-prefix '(lambda () (interactive) (insert "@")))
+

;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defvar my-atkey-char "@")

(setq my-atkey-prefix (kbd my-atkey-char))
(setq my-atkey-map (make-keymap))

(define-key global-map my-atkey-prefix my-atkey-map)
(defun my-set-key-atkey-map ()
  (local-set-key my-atkey-prefix my-atkey-map))
(add-hook `hexl-mode-hook 'my-set-key-atkey-map)


;; 上下は C-p, C-n (そのまま)
;; 左右は C-k, C-l
(global-set-key "\C-l" "\C-f")
(global-set-key "\C-k" "\C-b")

;; (keyboard-translate ?\C-l ?\C-f)
