From 663bcd2542004be4e6e301d14b011145fb4b916c Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sun, 14 Oct 2012 13:59:27 +0900
Subject: [PATCH] add interactive function reload-rcfile

---
 emacs.el | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/emacs.el b/emacs.el
index e8e874d..d61e55d 100644
--- a/emacs.el
+++ b/emacs.el
@@ -91,10 +91,7 @@ otherwise the path where the library installed."
      (set-scroll-bar-mode nil))
 (add-hook 'kill-emacs-hook
           ;; load when exitting to examine if file is written properly
-          (lambda ()
-            (when (file-readable-p "~/.emacs")
-              (load-file "~/.emacs"))
-            ))
+          'reload-rcfile)
 
 (add-hook 'after-init-hook
           (lambda ()
@@ -112,10 +109,6 @@ otherwise the path where the library installed."
 
 ;; my prefix map
 (define-prefix-command 'my-prefix-map)
-'(add-hook 'after-init-hook
-           (lambda ()
-             (define-key ctl-x-map (kbd "C-x") 'my-prefix-map)
-             ))
 (define-key ctl-x-map (kbd "C-x") 'my-prefix-map)
 (define-key my-prefix-map (kbd "C-q") 'quoted-insert)
 (define-key my-prefix-map (kbd "C-z") 'suspend-frame)
@@ -143,6 +136,12 @@ otherwise the path where the library installed."
       t)
      (require 'save-window-size nil t))
 
+(defun reload-rcfile ()
+  "Reload emacs rc file."
+  (interactive)
+  (when (file-readable-p user-init-file)
+    (load-file user-init-file)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; global keys