~/lib/conf/emacs/key-assign.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(load-file "~/lib/conf/emacs/site-lisp/smart-compile/smart-compile.el")
(when (require 'redo nil t)
(define-key ctl-x-map (if window-system "U" "r") 'redo))
(load-file "~/lib/conf/emacs/site-lisp/redo/redo.el")
;;; [Home] Key と [End] Key を従来の動作に戻す
(define-key global-map [home] 'beginning-of-buffer)
(define-key global-map [end] 'end-of-buffer)
;;; Ctrl-H を前1文字削除に変更し，
;;;HelpをShift + Ctrl + hに割り当て
(let ((the-table (make-string 128 0)))
(let ((i 0))
(while (< i 128)
(aset the-table i i)
(setq i (1+ i))))
;; Swap ^H and DEL
; (aset the-table ?\177 ?\^h)
(aset the-table ?\^h ?\177)
(setq keyboard-translate-table the-table))
;;; function keys
(global-set-key [f3] 'undo)
(global-set-key [f4] 'redo)
(global-set-key [f5] 'smart-compile)
(global-set-key [f6] "\C-x\C-s")
(global-set-key [f7] "\C-xo")
(global-set-key [f8] "\M--1\C-xo")
(global-set-key [f9] 'goto-line)
(global-set-key (quote [C-return]) "\M-/")
;;(global-set-key "\C-u" "\C-xe")
;;; 日本語検索用 C-s C-kで入力モード，さらにC-\で日本語入力
(define-key isearch-mode-map "\C-k" 'isearch-edit-string)
>> emacsの設定