(defun my-mode () (interactive) (setq major-mode 'my-mode) (setq mode-name "My Mode") (setq my-local-map (make-keymap)) (define-key my-local-map "h" 'backward-char) (define-key my-local-map "k" 'previous-line) (define-key my-local-map "j" 'next-line) (define-key my-local-map "l" 'forward-char) (define-key my-local-map "\C-ch" 'hello-world) (use-local-map my-local-map)) (defun hello-world () (interactive) (insert "Hello, world") )